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Mews Bits 


The July 26, 1982 edition of InfoWorld ($25 yr, call 
900-343-5474) is devoted to the Atari computer and has all 
kinds of interesting tidbits. In case you are not familiar with 
InfoWorld, it is a weekly newspaper for the Microcomputer, and 
is very worth while if you are interested in the latest news, 
although Marc Benioff is usually even more current! 


They begin by saying that about 300,000 Ataris have been 
sold and that Atari is outselling Apple. They report that 
Roger Baderscher, the former head of Atari, is leaving to form 
his own company. There is sort of a panel discussion with Bill 
Wilkinson of 0.5.5., Ken Grant from Synapse, Robin Sherer 
from Santa Cruz Software, and Jim Capparell of Antic with 
Cylde Spencer from the San Francisco Bay Area Atari Group 
representing the user's, Some interesting comments on the 
Atari BASIC vs Microsoft's were that now that there are so 
many Atari programs and books on programming in Atari BASIC 
are out, the lack of compatability with Microsoft has become 
much less inportant. As Bill Wilkinson points out, the new 
ANSI standards for the new BASIC, as reported in a recent 
issue of Byte, show Atari BASIC to be much closer than 
Microsoft, especially in string handling! So Bill was right all 
along when he insisted that the Atari String handling was 
superior to that of MicroSoft. In our local area, now that 
MicroSoft is out, many are buying BASIC А+ from 0.5.5, 
instead'!' 


There are articles on Electronic Fantasy, Synapse Software, 
and nice reviews of FileManager 800, MicroPainter, Lon 
Poole's book, "Your Atari Computer" and Monkey Wrench, all 
similiar to those you have already read in A.C.E. There is also 
an interesting article on a new CP/M- Atari Interface that 
allows you to hook up your Atari to a CP/M computer by USS 
for $177, and a review of the new PERCOM double-density 
drives- we have ordered a double drive for the bulletin board 
and will review it and the Leading Edge drive soon. 


The most interesting product announced in this issue was a 
3 inch Micro-FloppyDisk drive and cartridge with 1 megabyte 
capacity for $899 by Amdek, 2420 Е, Oakton St, Suite E, 
Arlington Heights, I1 50005- no mention of Atari, but I have 
heard that they plan on releasing it іп an Atari version "soon", 


веючеититеикнеттока кта тығын 


ELCOMP 53 Redrock Lane, Pomona, СА 91756, the 
German-based computer company will announce at the London 
Personal Computer in September some of their new products, 
including the new book, Games for the Atari ($7,95, with 
cassette, $40)(see review this issue), АТЕХТ-і а 
wordprocessor for only $30 on cassette but works for both 
cassette and disk and will be reviewed when we receive it, and 
a EPROM-cartridge kit that allows two 2532 , 2732, or 2716 
EPROMS to be plugged into the cartridge slot for $20 
(bareboard) or $30(with EPROMs?). They also have an EPROM 
maker ready that uses the joystick ports but I don't know the 
price yet, 


Consumer Reports is looking for information for user’s and 
their experiences with personal computers, presumably for an 
upcoming issue, They have asked for information about all the 
"popular" computers, specifically, Apple, Pet, IBM and Radio 
Shack, but left out Atari!! Please tell them about your 
computer, so we are not left out, Write to Consumer Reports, 
Box RME, 256 Washington Sta Mt. Vernon, NY 10550, 


Several companies are releasing Trac Balls now- will keep 
you updated. 
-Mike Dunn 


August Meeting 


Meetings are always on the Znd Weds night at 7:30, except 
this month there will be no regular meeting. Instead, there 
will be a gala pot-luck picnic at the covered picnic tables at 
Hendrick’s Park on Wednesday, August the 18th. Call Kirt 
Stockwell on details and what to bring. There is power for 
computers at the picnic site. 


Bulletin Board 
(503) 343-4352 


We have obtained a used Atari 400 for the dedicated Board 
that will run 24 hours а day. A new Canadian company. 
Tara,3648 southwestern Blvd., Orchard Park, N.Y. 14127 or 2 
Robert Speck Parkway, Suite 1500-8, Mississauga, Ontario 
L47-1H8 Canada, has kindly donated a 48K board for the 400 
that retails for $199'! When we receive it, we will install it, 
review it and you can see it in action. We have also ordered a 
dual double-density Percom disk drive, that will eliminate 
many of the problems that we have been having with using only 
one drive- we will be able to put much more on line, and still 
have room for your messages, programs that you upload, etc. 
Frank Hubband has upgraded the Armudic Bulletin Board to 
work with the Percom drives and has many new features as 
well as fixing of the bugs- will go on line when we receive ії, 
By the end of August all should be up- Kirt Stockwell will be 
SYSOP for the last week or so of August. 


Remember, you can obtain "Best of Ace-1982 1/2" Game 
Disk or Cassette, or Utility Disk and support the Bulletin 
Board, as well as get some great programs for $15 each or $20 
for a double sided Disk. Those who ordered already- there 
was a slight problem with some of the Utility programs, but 
now are fixed so you should receive you disks soon, if you 
haven't already, Order from Chuck & Jody Ross, 2222 
Ironwood, Eugene, Or 97401. You can also get the bound 
edition of "All of ACE" for $12-$14 depending on !st class or 
book rate from George Suetsugu; 45-602 Apuapu St, Kanoehe, 
HI 96744, 


GO BBLER 
-by Sydney Brown, Rockhampton, Australia 


(See cover picture) 


The Gobbler program uses mostly standard programming 
methods and a complete description follows. 

Lines 0-100 are standard and just put up the instructions, 

Lines 100-105 are used to redefine the character set by 
redirecting the computer from the normal ROM based character 
set to a new location in RAM where I have placed the 
information for the new characters and copied the original 
characters for the rest of the area. 

I have reserved 2 pages (512 BYTES) at the top of user 
RAM and placed the new character set up there, by reading the 
data statements in Lines 1000-1009 and placing them in the 
correct position and order. Each number represents the binary 
code for one line of one character. 

Lines 190-199 are used to initialize all the variables and 
also modifies the basic maze to the level you have reached, 

Lines 250-299 determine how many Globs are allowed at the 
level you have reached. 

Lines 300-289 are used to give the Globs their limited 
intelligence and control their movement. 

Lines 400-410 are used to produce the smiles on the Globs 
and the shocked look on the man. 

Instead of having extra characters I just POKEd the slight 
variation directly into the new character set to modify the 
correct positions. This changes all the characters simply and 
quickly without having to PLOT the new characters into the 
positions occupied by the Globs or the теп» 

Lines 500-599 are used in connection with 600-699 to 
display the end of a level and stepping up to the next level. 

Lines 600-658 are used to see when the man hits a nugget, 
a bag of gold, or goes through the tunnel at the edge of the 
screen. 

Lines 900-919 draws the maze and the boundaries for each 
level. 

Lines 920-999 are used to fill all the blank areas with 


nuggets. 


Н, Brown, Australia 
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Шы QR ӘНЕ 22 A: 220 ЕХ=ЕХ+1!ТЕ EX>100 THEN H=INT(RND(0)x17)+1 405 COLOR 238:PLOT X,Y:FOR W-250 TO 5 STEF -7 


7 REM xx БЕК ж AT: Рі. SVSINT(RND(O)"9)+1ILOCATE H,U,ZtIF 2-32 THEN SSOUND 0,8,2,14:NEXT WICOLOF 32:PLOT X,Y 

8 REM xx by ж (o. 7. COLOR 112:PLOT H,VSEX=0 408 POKE PP,195:POKE РР+1,189:РОКЕ РР%8,15315 
9 REM XX Sydney Brown — XX T 222 ТЕ EX=20 THEN COLOR 32:PLOT H,ViCOLOR 734 QUND 0,0,0,0 

10 REM жх — Aug/Sept 82 ях і SPLOT Х,Ү:РОКЕ 77,0 409 IF AX<4 THEN 194 


11 REM XXXXUXXDOODODODODDDOK 
15 9 "IDIN CC), HC), (5) 

20 POKE 710,224:Р0КЕ 709,141? " 
атал ОЖ ЕЕ 
К I" 

22 POKE 752,11? " 

"19 1? "YOU ARE INSIDE A MAZE COLLECTING 6 

OLD" 

23 ? "NUCCETS,BUT YOU HAVE A PROBLEM"? "THE 
GOLD YOU ARE COLLECTING IS NOT":? "YOURS,IT 

BELONGS TO THE GLOES," 

25 2 "AS YOU CAN IMAGINE THE CLOES ARE NOT"? 
"AT ALL PLEASED AND TRY TO CATCH YOU." 

27 ? "YOU TRY TO COLLECT ALL THE GOLD YOU":? 
"САН BEFORE YOU ARE CAUGHT 111849 1? "EACH LE 

VEL IS MORE DIFFICULT" 

28 ? "YOU HAVE 4 CHANCES TO COLLECT THE GOLD" 


$ 

29 2 "USE JOYSTICK 1 TO CONTROL YOUR SMILEY": 
? "EACH NUGGET SCORES 1 POINT & THE BAGS? "0 
F GOLD SCORES 20" 

32 ? 1? "A BONUS OF 100 FOR A COMPLETED MAZE" 
1? 1? "by Sydney Brown-Fun-Co "t? "given to 
ACE members" 

40 ? "Press START to start the дәме") POKE 53 
279,0 

50 IF PEEK(53279) ^6 THEN 50 

100 POKE 106,PEEK(104)-2:GRAPHICS 181? #43" 

setting up" 

101 FOKE 710,140:POKE 708,14:Р0КЕ 709,235:POK 

Е 711,222!6-PEEK (105) X2551FÜR B=0 TO 511 

102 IF Б>219 AND B<352 THEN READ DiPOKE А+6,0 
МЕТ B 

103 IF Б>347 AND Е<376 OR B2383 AND B«392 THE 

N READ ОРОКЕ ATE,DiNEXT B 

105 ZZ-PEEK(B7344HB) SPOKE А+Е, 22:50000 0,77,1 
0,8:МЕХТ BSPOKE 756,РЕЕК(106) 

190 Х=19:Ү=0:АХ=0:1.=1:5=0:РОЅІТІОМ 0,037 $43" 

scored = LEVEL1jjjj" 5 "score and "level" 

and "jjjj" in inverse 

194 COLOR 234:PLOT X,Y1Hz91U-0:ND-0 

195 ON L COSUE 900,920,900,920,900,920,900,92 
0,900,920,900,920,900,920,900,920,900,920,900 
,920,900,920,900,920 

196 COLOR 32:PLOT 16+AX, 0:POSITION 15,03? #4; 
$$TF L>10 AND L/2<>INT(L/Z) THEN COLOR 72°PL 

OT 0,43PLOT 19,5: №=2 

197 EX2221X-181Y26:1CY-1:COLOR 234:PLOT X,YTIF 
1212 THEN COLOR 72:PLOT 10,3:PLOT 10,9:ND-ND 

%2 

198 Н(1)=1:0(1)=6:С(1)=235:9(2)=10:1(2)=10:С‹ 

2)=2353H(3)=624(3)=210(3)=235 IF 1214 THEN CO 

LOR 723PLOT 2,6:ND-NDH 

199 H(4)=183V(4)=330(4)=235SH(5)=9 05) 261 CCS 
)22351IF 1216 THEN COLOR 72:PLOT 14,6:ND-ND4i 

200 5Т-5ТІСК(0) 

201 IF 5T-11 AND Х<1 THEN LOCATE 19,Y,ZiIF Z= 

32 OR 2-235 OR 7-112 THEN GOSUE 500:Х=Х-1:1Р 

X40 THEN X-19 

202 IF ST=11 THEN LOCATE X-1,Y,Z!IF 2-32 OR Z 

z235 OR 2-112 THEN GOSUB &00:X-X-1:IF Х<0 THE 

N X=19 

203 IF ST=7 AND Х>18 THEN LOCATE 0,Y,ZiIF 2-3 

2 OR 2-235 OR Z=112 THEN GOSUE 500:X-X*1:IF X 

219 THEN X=0 

204 IF ST=7 THEN LOCATE X+1,Y,Z¢IF Z=32 OR Z= 

235 OR 7-112 THEN GOSUE 500: X-X41:IF X>19 THE 

N X=0 

206 IF ST=14 THEN LOCATE X,Y-1,Z:IF 27-32 OK Z 

=235 OR Z=112 THEN GOSUB 200:Ү=Ү-1 

208 IF ST=13 THEN LOCATE X,Y*1,2:IF 7-32 OR 7 

=235 OR 2-112 THEN GOSUE 500iY-Y41 

209 IF ST<>15 THEN COLOR 23430107 X,Y 


бес 


gol 


250 СҮ=СҮ+1:1Е CYS THEN CY=1 

251 QN L GOTO 268,268,266,266,264, 264,262,262 
»260,260, 260,260, 260,260, 260,260 

260 IF CY=5 THEN N=S:GOSUE 300:GOTO 200 

262 IF CY-4 THEN N=4:COSUB 300:0070 297 

264 IF CY-3 THEN N=3:GOSUE 300:60T0 299 

266 IF CY-2 THEN N=2:GOSUE 300:60T0 292 

268 IF CY-1 THEN N-1:6085UE 300:0070 290 

290 IF L=1 OR L=2 THEN FOR W=1 TO 10:МХТ M 

292 IF L=3 OR L=4 THEN FOR W-1 TO SiNEXT Н 

299 GOTO 200 

300 IF Y2U(N) THEN 350 

301 IF X<H(N) THEN 325 

302 IF Y<V(N) THEN 375 

303 LOCATE H(N)+1,V(N),Z:IF 2-234 THEN 400 

304 IF 2-32 (Ж Z=235 THEN COLOR C(N)+PLOT HN 
) VON) SHOND=H(ND 42 COLOR 201:PLOT HOD ,VOD С 
(QD ZZTRETURN 

305 LOCATE HQD,U(Q041,2 

306 IF 7-32 OR 2-235 THEN COLOR CQD:PLOT HIN 
),U(QD SUC SUC H1 COLOR 201:PLOT HOD (М 
(N)=ZSRETURN 

307 LOCATE НОМ) ,U(Q0-1,Z 

308 IF 7-22 OR 7-235 THEN COLOR C(N)+PLOT HN 
),UQ0 ТСМ) =) -11 COLOR. 202 PLOT НОМ), 1C 
(N) ZTRETURN 

309 RETURN 

325 LOCATE H(Q0-1,U(00,21IF 2-234 THEN 400 

326 IF 2-32 OR 2-235 THEN COLOR COD:PLOT НОМ 
у СМО HOD HOD -1:COLOR. 201:PLOT HOD (М) 
(N)=Z RETURN 

327 LOCATE HIN) ,V(N)41,Z 

328 IF 7-22 OR 7-235 THEN COLOR СОМ :РІОТ HN 
),UQD 2UQD UC H1 1CDLOR. 201: PLOT. НСМ) UCN) SC 
(N) ZZ: RETURN 

329 LOCATE HIN) ,U(Q0 71,2 

330 IF 7-32 OR Z=235 THEN COLOR CQD:PLOT НСМ 
3,900 1U(0 2 Q0-1:COLOR. 201:PLOT HIND VIN) C 
(N)=Z RETURN 

339 RETURN 

350 LOCATE НОМ) ,V(N)+1,Z3IF 2-234 THEN 400 

351 IF 7-32 OR 7-235 THEN COLOR C(N)+PLOT HIN 
),UQD 2UQDZU(QD 1 СООК 201:PLOT HOD UCN) TC 
(QU ZZTRETURN 

352 IF H(N)<19 THEN LOCATE HOD 41,U(Q0 ,Z 

353 IF (7-22 OR 2-235) АМ) H(N)<19 THEN COLOR 
CCN) SPLOT HOD VIND SHON)=H(ND +1 COLOR 2011PL 
OT HOD UCN) SCCN)=Z RETURN 

354 LOCATE H(N)-1,V{N) ,Z 

355 IF 7-32 OR 7-235 THEN COLOR C(N)¢PLOT НОМ 
),UQD SHODSHQD-1:COLOR 201:PLOT HOD (М) 
(№ ZZtRETURN 

369 RETURN 

375 LOCATE HQD,UQ0-1,Z2:IF 2-234 THEN 400 
376 IF 7-32 OR 2-235 THEN COLOR C(N)+PLOT НСК 
),UQ0 $UQDzUQ0 -1:CDLOR. 201:PLOT HOD UCN) C 
(N) ZA RETURN 

377 LOCATE H(N)+1,V(N),Z 

378 IF 7-32 OR 2-235 THEN COLOR СОМ :PLOT НСМ 
),UQD 2HOD HOD +2 COLOR 20120107 НСМ) UCN) 1C 
(N)=ZSRETURN 

379 LOCATE H{N)-1,V(N) ,Z 

380 IF 7-32 OR Z=235 THEN COLOR C(ND:PLOT НОМ 
) VON) HOD -HOD-1:COLOR. 20130107 НСМ) VIN) C 
(№ =2 RETURN 

389 RETURN 

400 РР=РЕЕК(105)х250+332:РОКЕ PP,189:PORE РР 
1,195:РОКЕ PP+8,231:FOR W-0 TO 150 STEP 10:Ғ0 
К WHEW TO W*20 STEP 2 

401 SOUND 0,9M,10,10:IF ҰН? THEN COLOR 106 
PLOT X,Y 

402 IF WW4M*10 THEN COLOR 234:PLOT X,Y 

404 NEXT WHINEXT WiAX=AX+1 


410 COLOR 238:PLOT X,Y:POSITION 4,117? #6; "а 
meHHHHover" $POKE 53279,0 

412 FOR W=1 TO 100:NEXT WiFOR MW-1 TD 3iFÜR M 
=0 TO 255 STEP 2150UND 0,4,10,10:500ND 1,255- 
W,10,10: NEXT WINEXT WH 

415 SOUND 0,0,0,0:50UND 1,0,0,0 

470 IF PEEK(S3279) 26 THEN 470 

421 POSITION 0,01? 16)" 2" 1G O 190 

500 L=L+i:POSITION 15,01? 46. 

399 GOTO 194 

600 COLOR 32:PLOT X,YiIF 2-32 THEN RETURN 

605 IF Z=112 THEN 620 

610 SOUND 0,49,10,103S=5+1 ND=ND+1 (POSITION 5 
‚0172 ЗІР L/ZCOINT(OL/2) AND М02105 THEN 65 
0 ) 

612 IF L/2=INT(L/2) AND id THEN 650 

619 SOUND 0,0,0, 0 RETURN 

820 S-8420:POSITION 5,01? 45;5:FÜR WW-1 TO 7: 

FOR W=0 TO 50 STEP 10:50UND 0,8,10,14 

622 IF НИ=1 OR WH=3 OR WH=S OR WH=7 THEN COLO 
К 2341PLOT H,V 

623 IF WW-2 OR WW-4 OR WW-6 THEN COLOR 112:PL 
OT HV 

629 NEXT WiNEXT HHISOUND 0,0,0, 0 RETURN 

650 LOCATE X,Y*1,2:IF 2-235 THEN Ү=ү+1:6070 6 
ó0 

652 LOCATE X,Y-1,21IF 2-235 THEN Y-Y-1:60T0 5 
ál 

854 IF Х<19 THEN LOCATE X*1,Y,21IF 7-235 THEN 
X=X+1 COTO 650 

655 IF X>0 THEN LOCATE X-1,),Z¢IF 2-235 THEN 

Х-Х-1:0070 200 

657 LOCATE 0,6,Z1IF 7-235 THEN Х=0:Ү=0:6070 6 

40 

658 LOCATE 19,5,2:IF 7-235 THEN X-191Y-6 

660 COLOR 234:FLOT X,Y:FÜR W=190 TO 0 STEP -5 
150080 0,8,10,10150ШМ0 1,8*1,10,101IF W/10-IN 

T(4/10) THEN FOKE 712,184 

662 IF (M-5)/10-INT((4-5)/10) THEN POKE 712,0 
664 NEXT H15-5H100: POSITION 5,01? #635 

699 SOUND 0,0,0,0:SOUND 1,0,0,0:РОКЕ 712,0:00 
TO 500 

900 COLOR 72:PLOT 0,1:DRAMTO 19,1:DRAWTO 19,1 
1:DRAMTO 0,11:DRAMTO 0,1:PLOT 4,2:1PLOT 4,3:PL 
QT 4,103PLOT 4,9 

901 PLOT 2,3:DRAWTO 2,5:DRANTO 4,5:PLOT 2,90 
КАМТО 2,7:DRAWTO 4,7:PLOT 8,3:PLOT 9,3:PLOT 8 
,91PLOT 9,91 PLOT 6,3 

902 DRAHTO 6,5:DRAWTO 8,5іР10Т ё,9:0КАНТО 6,7 
:DRAMWTO ien 11,3:PLOT 12,3:PLOT 12,4:PLO 
T 11,9:PLOT 12, 

903 PLOT an 10,5:FLOT 10,7:PLOT 10,640 
КАНТО 12,6:PLOT 17,3:DRAWTO 14,3:DRAMTO 14,5: 
FLOT 14,7 ИЖАНТО 14,9 
904 КАНТО 17,9 :PLOT 16,5 
+7 DRAWTO 18,7 

910 COLOR 235:FOR Х=1 TO 1Б%ҒОК Y=2 TO 104106 
ATE X,Y,Z31F 7-32 OR 2272 THEN PLOT X,Y 

911 NEXT Ү:МЕХТ XiPLOT 19,6:PLOT 8,6: COLOR 23 
АРТ 18,6 

919 RETURN 

920 COLOR 235:FOR Х=1 TO 18:ҒОК Y-2 TO 10:PLO 
T Х,Ү:МЕХТ YSNEXT X:COLOR 72:PLOT 0,6:PLOT 19 
T. 

999 RETURN 

1000 DATA 255,129,129,129,129,129,129,255 
1001 DATA 50,125,219 ,255,195,189,2525,170 

1002 DATA 80,126,219,255,153,195,102,60 

1003 DATA 0,0,0,24,24,0,0,0 

1004 DATA 145,82,20,120,27,156,42,65 

1009 DATA 8,12,14,56,124,254,254,124 


КАКТО 18,5:PLOT 16 
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Page Six 
(Bynapase, 820 Coventry Rd., Kensington, СА 94707 $30) 


Page Six is a collection of useful utilities that you may add 
to your own programs. The disk is copyrighted, but you may 
incorporate any of the routines in your own programs and do 
what you like with them, Most of the utiltiies are located on 
page 4, and include both the assembly language listing as well 
as the BASIC listing for your use, 


Programs include a joystick expander program to simplify 
joystick programming and an "informer" program that allows 
you to see the status of various flags such as cursor column 
and row, keyboard buffer, etc. There are programs that allow 
you to print banners 1 1/2 inch high either vertically or 
horizonally, a slow list utility to allow you to control the 
speed of a listing and a program that allows you to better 
utilize the console switches on your Atari. 


Some of the more useful utilties on the disk is a Mini-DOS 
that resides in memory on top of BASIC, А "Musician" program 
that allows you to write short musical piece easily by 
spcifying the note, octave, tempo, etc in musical notations, and 
a Textual Display Enhancer that allow 4 different colors to be 
displayed in Graphics 9, 


АП in all, many useful programs , written by sometime АСЕ 
contributor Matt Loveless and one of his friends, Our "Best of 
1982 1/2 utility disk" uses the text enhancer for the title page. 

-Mike Dunn 


Atari Games and Recreations 
by Herb Kohl, Ted Kahn, Len Lindsey) 
(Reston Publishing Co. Reston, VA) 


Here it 15! A large, 238 book that teaches you to program 
in Atari BASIC through Games and fun, Very well written and 
entertaining, the book covers BASIC programming but also all 
the special features of the Atari, including Graphics, 
animation, sound and music, and color. There are lots of 
programs listed, all fully explained. А book that I could 
recommand to all most highly!! 

-Mike Dunn 


Instant BASIC— 2nd 
Astounding! Edition 
by Jerald Brown 


(dilithium Press, POB 606, Beaverton, OR 97075 $12.95) 


This book uses a rather unusual approach to learing BASIC, 
Each page is arranged differently and each has a variety of 
pictures, drawings, symbols, and instructions. This variety 
may be an attempt to make it light and interesting but was 
distacting to me and made it difficult to concentrate and mdve 
through the book smoothly. 


The book must be used like a workbook and cannot be used 
as a reference book, The greatest drawback is problably the 
fact that it is not written just for the Atari computer but for 
many microcomputer BASIC’s. Differences between computers 
are frequently mentioned and may be confusing to some people. 


While the approach of this book is usiguq and may be very 
helpful to some people, I found the book "Your Atari 
Computer",reviewed last month, the most organized and 
succinct for learning "Atari BASIC" as a beginner, 

-Ken Springate 


note from Editor! I rather liked the approach of this book, the 
graphics and the comparisons of the various BASIC’s, The 
three books mentioned above are all good for the beginner- 
"Your Atari Computer" is best on teaching you to use your 


Atari, especially if you just got it. Atari Games and 


Recreation is an excellent guide to learing Atari BASIC, and I 





like Instant BASIC as a general beginner's guide to BASIC 
with comparisons with other popular BASIC's if you are 
interested in learning to translate. You can't go wrong with 
any of them. 

-Mike Dunn 


GAMES FOR THE ATARI 
By 5. Roberts 
(ELCOMP, 53 Redrock Lane, Pomona, СА 91766 $7.98, or $40 
with cassette) 


What does GAMES FOR THE ATARI cover? It covers 
Display List Interrupts, GTIA or CTIA chip, Player Missile 
Graphics, Redefining the Character Set, Sound, and Movement 
in Basic and Machine language? GAMES FOR THE ATARI goes 
into good depth. It has most of the information the 
intermediate programer needs to know. 


How does it go over the material? First it tells a brief 
summary of what it is explaining, second it goes over examples 
it shows through diagrams or through programs, next it tells 
what lines in the program serve as what function. 


What type of examples or games are in the book? There are 
many different types of programs but for the most part they 
are games} here are some titles Backgammon, Bomber, 
Gunfighter, Calender, Robot-Attack, and Barrier, 


My opinion of GAMES FOR THE ATARI. I feel that it gave 
more understanding and more structured programing for the 
Atari. I recommend this book for the intermediate programer 
who don't like most books because they are boring and don't 
give a lot of understanding. I have really enjoyed doing this 
review for the Eugene Atari Computer Enthusiasts (ACE) 

-L.J, Knoll 


PROMIT 


EPROM development system for the Atari 800 computer by 
МРС Peripherals Corporation, 9424 Chesapeake Пғ., San Diego, 
СА 92123) 


What is an EPROM? Ап EPROM is an acronym for Eraseable 
Programmable Read Only Memory. It is eraseable by exposure 
to ultraviolet light. An EPROM works like a ROM but can be 
reused and reprogrammed. This package consist of both the 
hardware and software, The hardware connects to controller 
ports 3 and 4 of the computer. The software has a good menu 
and allows you to Check for erasure, Verify against RAM 
buffer, Burn from RAM or disk file, Copy another EPROM, Save 
to disk file, Move to or Load from RAM buffer, Display EPROM 
to screen or printer. It also comes with Personality Modules 
so that you can burn 2508, 2516, 2532, 2716, and 2732 EPROMs. 


The package is complete and very easy to use and it works 
very well, so far I һауе had no problems іп any way with ії, At 
$199 from МРС it is worth it. Lets see more good products. 

-Е.Ј, Knoll 
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Hardware review of the 80 column display board by Bit 3 
Computer Corpse 8120 Penn Ave., Minneapolis, MN $349, 
by David Stellmack 

Technical Editor 

ACE of Columbus 
(This is a new Atari Newsletter and with Dave as it's technical 
editor, should have some great articles. Dave kindly sent me 
this review, which will also be published in his newsletter. 
Contact him at 4515 Healy DR., Columbus, Ohio 43227.) 


The Full-View 80 is the first 80 column board for the Atari. 
Why get an 80 column board? Well, I have a special reason: 
The computer I use at work requires an 80 column terminal and 
I want to use that computer via modem from home. бо, I rushed 
right out and got a Bit 3. I'm sorry to say I wish I had waited, 

First you must understand the Bit 3's system requirements, 
The Full-View 80 is available only for the Atari 800. A 32k 
RAM board must be in the 24 slot of the memory area, and a 
15k board in te 1st slot. The last empty slot in the memory 
area is where the Full-View 80 resides. I was lucky. I have 
48k with a 32k RAM CRAM, A monitor is also required, 

This is where trouble began for me. I have a NEC 
composite color monitor. I purchased the color monitor 
because I knew the 80 column boards were coming. Well,I 
didn't see in the Bit 3 literature the following line! "Video 
monitor is required -- color TV sets or most color monitors 
cannot provide a satisfactory 80 column display." 

Well,I was in a real fix. I went to my friend who has an 
Apple and used his Amdek 300 hi-res green screen to finish 
this review, 

The Full-View 80 provides an 80x24 display which looks 
very good. The lower case letters have true descenders, The 
character size is 8x10 cell which looks very good and easy to 
read. The EPROM on the board provides for 128 characters and 
the documentation says the EPROM can be reprogrammed to 
allow the user to make character sets, The standard set 
contains upper and lower case ASCII characters plus line 
drawing graphics suitable for business forms, 

The on board firmware in ROM make the board usable from 
BASIC or machine language. The Full-View 80 does not use 
any of the ATARI RAM to display the screen. A software 
controlled video switch permits one to switch between the 
ATARI 40x24 and 80x24 under keyboard ағ program control. 

In BASIC to go to 80x24 type: A-USR(54818) CRETURN?, 
All normal commands such as List, Print, Run, Break, Tab, 
Insert Char, Delete Char, DOS, and the rest are supported in 
80 column format. Use Open and Close statements to use the 
Full-View 80 in a program. 

The board comes with 60 Hz operation standard and 50 Hz 
firmware is available by request. 80 column word processing 
will be supported with Full-View 80 and the new 80 column 
Letter Perfect from LJK. Ап 80 column assembler called Edit 
5502 and an 80 column data base manager called Data Perfect 
will be available from ТК. 

Well, I guess it's time to rate the board on a scale from 
1-10 (10 the best). I give the Full-View 80 а 6 because of the 
non-compatibility of the NEC monitor, If you have a nice 
non-color monitor this board is for you. If not, you are still 
waiting like I am. 


NOTE: 

I took the Full-View 80 back and got my money back 
because I want an 80 column board which I can use with the 
NEC color monitor. I also called Bit 3 and spoke to a tech rep. 
The rep told me the following: The problem is not a new one 
and is general with all boards and personal computers (even 
the Apple. Amdek has a converter to improve the Full-View 
80 with the Apple but does not have any such converter for the 
Atari, The following software is compatible with the Atari! 
Әк BASIC, Atari Microsoft BASIC, BASIC А+, DOS 2,08, Editor 
Assembler, APX Pascal, and many of the other common 
packages, Тһе ones they know which do not work аге: Medit, 
Telelink, and many of the direct cursor addressing programs, or 
programs which invoke a different graphics mode. LJK plans 
to release 3 programs compatible with the Full-View 80, Atari 
version. 


Hints 
by Matt Giwer 


Some months ago the newsletter published a question on 
how to use the features of the ATARI Word Processor with the 
EPSON printer. Perhaps I don’t understand the question but it 
is rather simple. To print something in italics, for example, 
the key sequence is CONTROL/INSERT, ESC, 4 and you will get 
this effect. To turn it off you use the same sequence except 5 
instead of 4 and the italics go away. The other double strike 
and so forth are the same. The CONT/INSERT [INSERT is the 
shifted >] permits the ESC code to go into the text rather than 
the software shifting modes, To make a direct translation to 
some of the more complex functions of each it will be 
necessary to add the GRAFTRAX chips at $50 to $90 and then 
redefine the control codes of the EPSON to those of the WP, 
This I have not had the interest to go into. The other approach 
is to go into the WP software and change the jump table for the 
control codes to put EPSON codes in the text, That seems to 
be rather more effort than it is worth, If -his is the answer to 
the question I regret not writing earlier. 





Inside Atari DOS 
by Bill Willkinson 


(Compute! Books, POB 5404, Greensboro, NC 27403, 
(800)334-0848, $20) 


This book was written by Bill Willkinson of 0.5.5. the 
authors of Atari BASIC, BASIC А+, and the Atari DOS. Billis 
also the author of the series of articles in Compute! called 
InsightiAtari that is must reading for serious Atari owners, 
Beginning with a fascinating chapter on the history of the 
Atari computer and Atari BASIC, it goes on to an overview of 
the Atari DOS. The book is about the File Manager System 
part of DOS 25, that is, the file called DOS.SYS, The DUP.SYS 
part is owned by Atari and the listings can be obtained from 
them. 0.5.5. owns the rights to the DOS.SYS. After the 
overview of the DOS, each command and procedure used by the 
DOS is explained in exhaustive detail, The final part of the 
book is the complete, well-documentated assembly-language 
listing of the complete DOS.5Y8. 


If you would like to know all about how DOS 25 works, this 
is the book for you. Assumes a fair amount of knowlege of 
assembly language; not for beginners. 





Affordable Modems 


The Anchor Direct Connect Modem called the Signalman 
Mark II is now available in an Atari version that plugs right 
into the interface and costs only $99, It works with the 
modular type phone only, connecting directly into the headset, 
It works well, and with the Jonestrm modem program in the 
June issue (also in the BEST of «. above), you have a very 
inexpensive way to enter the world of computer 
communications. I have tested the two together and they work 
fine. 





Microbits (434 W. ist St Albany, Or 97321 (503)957-9075, who 
are local members of ACE are marketing a modified version of 
above for Atari owners without an interface. Their modem will 
connect directly into the joystick ports and come with special 
terminal software. They have given the club several 
prototypes and they work fine. When they are nationally 
marketed, they will retail for $160, but ACE members can get 
them directly from Microbits for $140, 
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ADD A LITTLE JOY 
USING THE JOYSTICK AND PADDLE IN ATARI PILOT 
by Ruth Ellsworth 


The simplicity of ATARI PILOT makes is easy to use the 
joystick or paddle to make programs in PILOT more interesting 
and enjoyable for children of all ages. In educational 
applications they can be used for testing of a multiple choice 
type, and can be especially useful for use with children who 
cannot read. 

In ATARI PILOT the position of the controller is "sensed" 
by the computer, and a USE module tells the computer what to 
do at that position of the controller. The Joystick Etch 
program included at the end of this article demonstrates the 
way in which the modules are used, and the "sensing" of the 
computer, Debbie at ATARI, who has been most helpful, sent 
me the information which made this program possible. Note, 
however, that in the computation lines, e.g. С:#Х=%Х, that the 
# and not the % must be used in order for the program to work. 

We have used this program in our family not only to learn to 
include the joystick in our programs, but to aid in the 
development of graphics. Line 600 gives the location of X and 
Y,and if %A is added the value of THETA (angle in which the 
turtle is headed) is given. By using this little program, the 
children have been able to find locations and angles for 
drawing graphics in PILOT without having to resort to graph 
paper which they consider a laborious task, 

ATARI PILOT allows the sensing of all four joysticks, The 
program at the end of this article is written for joystick 1. 
The values %70 through %J3 are used to sense the joysticks 1 
ta 4 respectively; the location of the stick is indicated by the 
values of 1 to 10, The trigger is given the value of 1 if 
pressed and 0 if up (that condition was not used in this 
program), The instruction JUMP on condition to a specified 
module is then used to give the desired result. 

A Paddle-Sketch program is included in the teacher’s 
manual of the educator’s package. The values for the paddle 
are! %РО through %P7 for paddles 1 through 8 respectively, and 
the triggers have similar values! %Т0 to %T7, The location 
desired is indicated by a value of 0 to 277, I have included а 
little routine to change *JOY in the JOY MATCH program to 
demonstrate the use af paddle 1, We found with our paddles, 
that the added pauses in the middle positions helped the 
program to sense the paddle and use the appropriate modules, 

Since ATARI PILOT does not included Player Missle 
Graphics as a part of its program (although they can be used by 
the CALL command as I understand it) if one wishes to change 
the angle of a given graphics figure, it is necessary to change 
the FILL command so that the FILL is always to the right of 
the cursor, 

I am including a program called Joystick Match as an 
additional example of the use of the joystick, and as an 
example of a more educational type use for testing, The 
paddle program included at the end can be used by either 
substituting it for *JOY or by editing the program and 
changing the joystick values given to the paddle values. 

As a family we are in the process of developing a number of 
educational games using ATARI PILOT, The ones we are 
presently working on are for children on the preschool or early 
primary grades, and expect to have a disk of at least half a 
dozen ready by October, Anyone interested in those programs 
should send me a self addressed stamped envelope. My 
address іс $4441 Hideaway Hills Road, Eugene, Oregon 97405, 
The games we are presently programming are used to teach 
number, number facts, color recognition, and upper and lower 
case letters, We are using graphics and the joysticks and 
paddles extensively in those games, and recommend their use 
to make programs more attractive to children. At our house we 
refer to it as "the joy of learning." 


ә, 


5 RIJOYSTICK ETCH by Ruth Ellsworth 
10 С:#Ү=0 

20 С:#Х=0 

100 xSTICK 

110 J040021):xA CUOYSTICK TOP 

120 J(ZJ0=9)$xB LJOYSTICK RIGHT TOP 
130 J(2J0-8):xC CUDYSTICK RIGHT SIDE 
140 J(ZJ0=10) :xDCJOYSTICK RIGHT BOTTOM 
150 J(400-5)1xF CUOYSTICK BOTTOM 
150 J(AJ0=2)3xE LJOYSTICK LEFT BOTTOM 
170 200-439 ЖҒ LJOYSTICK LEFT SIDE 
180 J(%J0=5)$"H CUOYSTICK LEFT TOP 
190 J(ZTB=1)taM CUOYSTICK TRIGGER 
191 J0X«-79) 1xI 

192 J00079) 3X) 

193 JCZY<-31) oak 

194 JCZY>47) Ж 

240 GRIGOTO ZX, XY 

250 JixSTICH 

299 Е: 

260 ха 

270 CHXX 

280 (+%Ү=ЙҮ+1 

281 GRIDRAWTOEX ,#Y 

285 JixSTIOK 

287 Е: 

290 xB 

300 СіҒҮ- ЖҮ 

310 С!#Х=7Х+1 

312 СКИЖАНТОЯА,ҒҮ 

315 JixSTICH 

317 Е: 

320 ЖС 

330 С:#Ү=7Ү 

340 С:#Х=7Х+1 

345 GRiDRAMTOSX, #Ү 

346 JixSTICH 

347 Е: 

390 xD 

360 CifY-ZY-1 

370 CX 

375 GRIDRANTOSX, FY 

376 JiXSTICH 

377 Ei 

380 ЖЕ 

390 С:#Ү=ХҮ-1 

400 С:#Х=7Х 

405 GRiDRANTOEX, TY 

407 JixSTICH 

408 Е! 

410 xF 

420 CHf(-ZY-1 

430 С:#Х=7Х-1 

435 GRIDRAWTOEX, TY 

437 JixSTICK 

438 Е; 

440 xG 

450 Ci#Y=ZY 

450 CHPXZX-1 

445 СКИЖАНТОЯХ, ҒҮ 

467 JixSTICK 

458 Et 

470 ЖН 

480 С:#Ү=7Ү+1 

490 С:#Х=7Х-1 

495 GRIDRARTOSX , #Y 

497 JixSTICK 

498 E: 

500 ЖІ 

510 Ci4X--79 

515 GRIDRAMTO-79 TY 

Sié JiXSTICK 

517 E! 

520 XJ 

530 С:#Х=79 

535 СКИЖАНТ079,ҒҮ 

536 JiXSTICH 

538 E: 

540 ЯК 


FFU CS ТҮГЕТІ ТТҮЗ ТҮТҮГҮ Т ҮТҮ ТҮРҮ ГҮ ТҮ ҮҮ ТҮ ТҮ ҮТ ТҮҮЧҮ ТҮ ТҮ РҮ ГҮ ТҮ ҮЧ ҮЗ ТҮРҮҮ ТҮГЕ ГІ ГІ ТҮТТҮ ТҮ ҮҮ ГЕРУ ТУРУ ЕРГЕ ҮҮ ГЇ 


550 С:#Ү=-31 
555 ОКИЖАНТ04Х,-31 
857 JiXSTICR 
558 Е; 
S60 xL 
570 C3#Y=47 
575 GRTDRARTOSX, 47 
977 JixSTICK 
578 E: 
580 xM 
590 ТІТНЕ VALUE OF X AND Y 
500 ЖЕ ZX  ,ZY 
801 РА:90 
605 JixSTICK 
607 E: 
10 Ri JOYSTICK MATCH 
110 GRICLEAR 
120 xEX1 
130 U:xPICTURET 
140 UtxPICTURE2 
150 U:xPICTURE3 
150 U:XPICTUREA 
170 UtXPICTURES 
180 T:iUSE JOYSTICK TO MATCH 
181 TiUSE TRIGGER TO INDICATE CHOICE 
190 xJ0Y 
200 J(ZT8-71) 1XNEXT 
210 JOO021) ХБОХ 
220 J(ZJ0=8) $XLNDERLINE 
230 J(2J022) 1XL INE 
240 0240-4) ЖІ ТТРОХ 
290 JixJ0Y 
260 Ei 
270 xPICTUREi 
280 GRiGOTO-60,30 
290 С:#4=0 
300 XJUMPHERE 
310 Сені 
320 GRi4(RART0; ТОКМО) 
330 GRiTURN340/8 
340 J($A<8) JUMPHERE 
350 E: 
340 xPICTURE2 
370 GR:GOTO-21,30 
380 С:#4=0 
390 ЖТІНЕ2 
400 С:ЗА=ФА+1 
410 GRiSC(RARTS; TURN144) 
420 GRiTURN72 
430 Ј(#А<5) ЖТІМЕ2 
440 E: 
450 xPICTURE3 
460 GR:G0TO21,30 
470 Ci#A=0 
880 ЖТІМЕЗ 
490 Сені 
500 GRIS(DRAW 7; TURNS) 
510 GRITURN340/6 
520 J(4A<8) TIMES 
530 E: 
540 xPICTUREA 
550 GRIGOTO42,30 
960 Cifá-0 
57) xTIMEA 
580 С:ФА-ФА+1 
590 GRIS(DRAW 7; TURN72) 
600 GRSTURN360/8 
610 J(#A<8) 3XTIMEA 
620 E: 
630 xPICTURES 
640 GRIGOTO 0,-11;TURNTOO 
650 Ci#A=0 
660 ЖТІМЕ5 
670 Сі 
680 GRi4(DRAW 105 ТОКМО) 
690 GRiTURN360/8 
700 .Х%А<8)ЖТІМЕ5 
710 E: 
720 ШАЛУ 


730 E: ; 
i 1140 CRIDRAMTO -4 
740 xBOX Hs 


1170 E; 
750 U1xNOUL d 
771 Vis 1190 CRIPEN ERASE 
; 1200 GRIGOTO 0,-11; 2 
780 GRIPEN RED ah «i 0,11; DRAWTO 21,30 
790 GRIGOTO-78, 13; TURNTOO ae 


800 GRI4(DRAW 34; ТИКМ?0) 1220 GRIPEN ERASE 


i y 1240 GRIGOTOSO, 13: TURNTOO 

' 1250 CRIDRAHTO/4,13 
ore 1260 GRITURNSD 
840 Ut¥NOEOX 1270 CRIDRAMI 
SEND TUNE 1280 GR: TURNIO 
860 USXNOLE 

! 1290 RIDRAMTOSO, 12 
870 СЕРЕН RED 1300 GRITURN-90 
880 CRIGOTO-28, 13: TURNTO?U 

1310 CRIDRAMI 
890 CRIDRAW2A 
ы. 1320 GRITURN-90 
m 1330 GRIDRANTO74, 11 
ccn 1340 GRETURNIO 

1350 CRIDRAMI 

930 U:xNOEOX ; 
Ee iy 1360 CR:TURNSD 

1370 CRIDRANTOSD, 10 
790 UtxNOL 1380 GRITURN-90 
960 CRIPEN RED 


1390 CR! 
970 GRIGOTOSO, 13: TURNTO?O 1400 DER CA 


980 GRIDRAW 24; TURN?0;DRARA; TURN90 § DRAHZ ' 
43 TURNPD:FILLA 1410 GRIDRAHTO74,9 


990 Шү PM x 
1000 E: 1440 T!T0 START OVER TYPE RUN 
1010 xLINE 1445 A;$X 
1020 UtxNOBOX 1446 MIRUN 
М. ани 1447 JYtxEXi 
i XPADDLE СМО NUMBERS ARE INCLUDED IN THIS 
1050 GRIPEN RED ROUTINE 
1060 GRIGOTO 0,-11;DRAWTO21,30 СУТО) jINEXT 
1070 жу J(XPO=0) *xBOX 
1080 E: JCIP0-50) :XUNDERLINE 
1090 xNOEOX PALIN 


1100 СА:РЕМ ERASE -1201 
J(IP0-120) XL INE 

1110 СК:СОТО -78,13;TURNTODSDRAHTO-78,47 pa sop 

STURNDOSDRAWTO-44,47$TURN?O;DRAHTO~44)13 (409-097) e ry 


i TURN9O ;DRAHTO-78, 137 TURNTOO үя 
1120 Е: E: 
1130 xN0UL 


1140 СК:РЕМ ERASE 
1150 GR160T0-38,13; TURNTO 0 


DATA PERFECT REVIEW 
(LJK, РОВ 10827, St. Louis, MO 53129, $99) 
Kirt E. Stockwell 


As I mantioned last month, Data Perfect is a very powerful 
utility. As I have become more familiar with this program, I 
have become convinced that it has the potential to replace a very 
large portion of the special-purpose software being written 
currently, The program responds quite fast, and the screen 
formatting is fairly user friendly. 

There is quite good error trapping built in, but the messages 
or responses you get from the computer when your input is 
incorrect can sometimes be quite confusing. As a programmer I 
truly appreciate the superb quality of the programming effort 
required to build such a comprehensive program. 

Now about the documentation... 

In all fairness I must say that the documentation provided 
with Data Perfect is marked as a PRELIMINARY version of the 
manual, (The quality of the printing looks like a final copy) The 
only true shortcoming that I could find in Data Perfect is the 
manual, Considering the potential of this superb piece of 
software, it would be a shame if the documentation could not be 
re-written in order to match the quality of the program. 

It might be appropriate here to mention that the vast majority 
of potential purchasers of Data Perfect are not programmers, 
nor are they adept at reading arcane documantation. To the 
programmer/s responsible for the actual program, 
Congratulations on a complex job extremely well done, To the 
person/s responsible for the documentation, Keep trying: the 
necessary information is all there, just needs some rearranging 
and clarification. To potential purchasers! If you need real 
database capabilities, you can't get more for your dollar! but you 
will need your patience. 


RANDOM ACCESS/ STRUCTURE 


Kirt Е, Stockwell 


This month we will combine the two sets of articles, covering 
Random Access and Structure, that we have been presenting 
separately, The discussion of Random Access has reached the 
point where a demonstration program is in order, and a good 
example of some of the concepts of Structured programming in 
action might help to make those concepts more clear. 

The example program will not be listed here in the newsletter, 
We willlist portions that are reievant to cur discussions, but 
will leave the bulk of the pragram untouched. The only way of 
obtaining the complete program currently is to send for the 
special Utility disk that we are promoting to raise funds for cur 
dedicated Bulletin Board System. If you get this program and 
list it out, preferrably on paper, you will be able to see the 
Structure quite clearly, 

The program requires almost 10K of free ram, plus another SK 
for working storage. This might seem like a neavy RAM 
requirement, until you realize that this will allow you to store 
150 records ( each 105 characters long ), If you have adequate 
memory to provide 15K of free Ram after the program is loaded, 
you will be able to store 300 records on disk, and search the 
entire file very rapidly, as the keyfile is resident in RAM. This 
provides extremely fast searching and retrieval of desired 
records, and all records can be edited individually and 
re-recorded without having to wade through the whole database. 

А portion of the program will be presented below. This is 
actually 2 separate control modules found within the body of the 
program. I am sure that there are programmers out there who 
could write a complex program such as this without using 
structured design, but not many of them, 

The Z control modules shown will provide an example of how 
controlcan be directed between discreet modules in a program 
and how they can be linked together. You will notice that there 
are separate control modules that are subordinate to the master 
control module. By dividing the control process up in this 
manner, it becomes possible to run and/or test discreet 
components of the program even if other components are not yet 
completed. This also facilitates changes when they are needed, í 
you wouldn't believe how many changes are needed in a program 
like this one ) 

Look over the listings shown below, and you will see how the 
master control module and a subordinate control module work 
together, Next month, some of the reasons why this fool 
program is so longere: 


10 REM PHONEBUK:RANDOM ACCESS SAMPLE 
20 REM By Kirt E. Stockwell,President 
30 REM Eugene A.C.E, (ACE International) 
100 COVER-190002 SDIMWIT-6000 

110 GOSUE COVER 

120 GOSUE SDIMWIT 

130 60506 FINDER 

140 GOSUB MENUTOP 

150 FOR LOOPS=1 TO MAXRECS 

170 GOSUE GITPICK 

180 ON 5 GOSUB ENTRY, EDIT, SEARCH; QUIT 
190 NEXT LOOPS 

195 END 
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BALLOONS 


This-month we look at an expansion of the PM graphics 
routine introduced in June's "Bankshot' program. I changed the 
routine slightly so that a vertical position change wouldn't be 
necessary to change the images. This was done using old and 
new image numbers stored in page six and required adjustment 
of the page six table. Table 1 is a revised listing of page six 
locations used, 


You will also notice a number of flag locations in table 1, 
Additional machine language routines have been added prior to 
the main X-Y movement routine. Communication between these 
routines and Basic is done by setting and resetting flags. In 
general, the flag for a given routine will be set to one by Basic 
or another routine, The flag being one is an indication that the 
routine is active. Upon completion of certain actions, the flag 
will be reset to zero. 


In the game ‘Balloons’ someone is tossing water filled 
balloons across the screen. Your job is to fire darts trying to 
bust the ballons. Don't hit the birds though, you'll lose points 
rather than gain them. Allowances must be made for the wind 
which changes speed and direction every round. At the 
beginning of the game you are offered a menu you can use to 
change playing parameters of the game, Try the default 
parameters first to get used to the game and then try varying 
parameters, 


The whole game could have been written using just the main 
X-Y movement routine (data in lines 270-302) as ‘Bankshot’ 
was, but because of the timing between Basic and the Vertical 
Blank Interrupt, motion would not be smooth. For smooth 
motion seperate routines have been put in the VBI. The three 
balloons (3 players) have their horizontal position updated by a 
routine using data from lines 262 and 253. Speed is determined 
by bytes in page 6 (1572-1574) with negative numbers 
indicating motion to the left, When players reach specified 
limits their horizontal positions are set to zero to remove 
them from the screen. 





Another routine (data from 264 to 256) handles dart 
movement. The number of vertical moves before a horizontal 
one is specified by WIND (1576) while direction is indicated by 
DIR (1577) and speed by SPED3 (1575). When a vertical limit is 
reached the dart is replace at the starting position. 


А check is made for collisions and the player hit is removed 
to the left side of the screen (routine data is in line 267 and 
part of 268), FLAG4 (1578) is set indicating a collision has 
taken place, Basic picks this up and sets FLAGS (1579) after 
producing the sounds and images of the collision: FLAGS 
starts the fall routine (remainder of 268 and 269) which drops 
the image to the bottom of the screen and resets flags 4 and 5, 
putting a dart at the beginning position. | 


One last job for the VBI routine ә, In line 261 is a routine 
that puts the horizontal position of the players in sound 
frequency registers, It also puts the vertical position of the 
dart into a sound register if the dart movement routine is 
active. These actions help considerably in generating smoothly 
varying pitches which would be impossible using Basic because 
pokes are not fast enough. 


Table 1 


0500-0509 (1534-1545) VEI insertion routine 
0604 (1545) Temp variable 

0408 (1547) PM area Hi byte 

060С-060Е (1548-1551) Old image numbers | yO 
0510-0513 (1552-1555) New image numbers y | 
0614-0617 (1554-1559) Horizontal positions 

0618-0418 (1500-1563) Old vertical positions 

051C-041F (1544-1547) New vertical positions ` Ч P 
0620-0623 (1548-1571) Flags for players P 5 
0624-0627 (1572-1575) Speedof players 19 
0528 (1575) WIND 

0529 (1577) DIR d 

062A (1578) FLAG4 py 
0628 (1579) FLAGS E 
062C-062F Reserved for future use Iré с) 
0530 and up (1584) Image pointers Lo & Hi bstes 


10 REM XXXXXXXODDDOODUDOOOL 

20 REM xx BALLOONS хх 

30 REM XXSTAN OCKERS 6/2ЖХ 

35 REM xx AUG 1902 ях 

80 REM XXXXXXXCODDDOUDODOCE 

90 ? "JUST A SEC..." 

100 PMHI-1547:1MAGE0-1552:IMAGE1-1533: IMAGEZ= 
15541 IMACE3-1555:HP053-155? 1UP083-1567 

110 FLAG0-154581FLAG1-15591FLAG271570 1 FLAG3-15 
711FLAG4215781FL865-21579 32 HIND7157 6: DIR-1577 
120 SPEEDO-157215PEED1-1573:SPEED27157 41 GPEED 
3215751 IMCPNT-158415I7EP3-53259 1P3PL 2532563180 
DC1-53751 

130 AUDC2=53763!AUDC3=537 655 600047337 67 :КАМТО 
P=106$PMEASE=54279 1 SDMCTL 2559 1 CRACTL 7253277 
140 PCOLRO-704:PCDLR1-705:PCOLR27705 : PCOLR3-7 
07 

150 NR-5:ROUND-1:DIF-4:DLY-10:D5PD-10:HAIT-20 
1440-15: NP-1iBPR-0,4 

200 OFEN #1,4,0,"K" 

250 REM x VEI ROUTINE UPDATED EY POKES X 

250 DIM VE$(348):FÜR I-1 TO 348:READ ASVES$(I, 
T)=CHRS$(A) NEXT I 

281 DATA 172,20,6,141,0,210,173,21,6,141,2,21 
0,173,22,6,151,4,210,173,33,6,240,6,173,31,6, 
141,5,210 


„ЛЕ DATA 142,7,189,32,6,240,45,188,35,6,240,4 
/ 1,58,15,254,20,6,135,208,250,189,20,6,201,200 


,144,26,176,13 
263 DATA 222,20,6,200,208,250,189,20,6,201,32 
,178,8,109,0,157,20,6,157,36,6,157,32,6,202,1 
6,202 
264 DATA 173,35,6,240,60,174,32,6,173,10,6,20 
8,19,173,40,6,141,10,6,173,41,6,208,5,206,23, 
6 

5 DATA 15,3,238,23,6,206,31,6,205,10,6,173, 
31,6,201,32,176,17,169,120,141,23,6,169,224,1 
41,31,60 


266 DATA 189,0,141,35,6,240,3,202,16,199 

267 DATA 173,42,6,208,31,173,15,208,240,26,16 
2,0,74,176,5,232,224,4,208,248,189,0,141,35,6 
,157,32,6,157,20,6 

28 DATA 189,1,141,42,6,173,43,6,240,36,238,3 
1,6,173,31,6,201,224,144,26,141,30,208,169,12 
0 

209 DATA 141,23,6,169,224,141,31,6,189,4,141, 


2) 2.519,6,169,0,141,42,6,141, 53,6 


270 DATA 24,173,11,6,105,4,133,204,182,0,134, 


| UT 207,160,0,132,203, 189,206,157 0,208, 189, 12,6 
a e ,221,16,6,208,8,187,28,6 
23 V 280 DATA 221,24,6,240,69,189,16,6,157,12,6,18 
e. 


202 


9,28,6,157,24,6,165,203,221,28,6,240,10,109,0 
,145,203,230,203,24%,42 | 
290 DATA 288,239,189,15,6,170,187,48,6,133,20 
5,189,49,6,133,206,177,205,240,14,145,203,230 
,205,208,2 

DATA 230,206,230,203,240,10,208,238,169,0 
,145,203,230,203,208,250,230,204,165,207 ,232, 
134,207 ,224,4,144,154 | 
302 DATA 75,98,228 
350 REM х PAGE & - INSERT VBI ROUTINE x 
360 FOR І-1536 TO 1545:READ ASPOKE I,AINEXT I 
370 DATA 104,160,0,142,0,169,7,76,92,228 
380 A-ADR(VES) SB=INT(A/256) :С=А-256хВ:РОКЕ 15 
38,C SPOKE 1540,Б 
400 GRAPHICS 17:DIM N$(3) 
430 GOSUB 1800:DIM T(NP) 
500 REM X PLAYER MISSILE SETUP x 


gr A=PEEK(RAMTOP)-163POKE PMEASE A POKE РИНІ 
„А 


) 

560 REM xx IMAGE 14 BIRD FALL xx 

562 DIM BFALL$(11)3FOR I=1 TO 11:READ ATBFALL 
$(1,1)=CHRS(A) SNEXT I:BFL-ADR(OBFALLS) SPOKE IM 
GPNT+15, INT (BFL/254) 

564 FOKE IMGPNT+14,BFL-Z56xPEEK (IMGPNT+15) 
566 DATA 88,48,68,40,40,56,56,16,16,16,0 


3/0 REM xx IMAGE 12 BIRD SPLAT xx 

3/2 DIM BOOM3$(11)3FOR Ісі TO 11:READ A:BO0M3 
$(1,T)=CHRS(A) :МЕХТ ITBM3-ADR(BDOM3$) SPOKE TH 
GPNT+13, INT (BM3/254) 

574 FOKE IMGPNT*12,BM3-255xPEEK (INGPNT+13) 
3/6 DATA 16,40,146,214,124,124,56,56,15,40,0 
580 REM xx IMAGE 10 BALLOON BURST xx 

582 DIM B0OM2$(14):FOR I=1 TO 14:READ A:BDOM2 
$(1,1)=СНКФ(А) :МЕХТ І:ВМ2=АОКСВООМ2% ) РЕ ІН 
GPNT+11 , INT (BH2/254) 

584 POKE INGPNT+10,B42-Z54xPEEK CIMGPNT411) 
386 DATA 8,40,52,84,74,42,33,17,84,76,42,50,1 
6,0 

390 REM хх IMAGE B BIRD xx 

392 DIM BIRD$(?):FOR I-1 TO 9:READ ATBIRDS(I, 
I)-CHR$(A)SNEXT IiBRD-ADR(BIRDS$):PORE IMGPNT* 
9 ,INT(RD/236) 

394 POKE IMGPNT48, BRD-255XPEEK (IMGPNT+9) 


3956 DATA 192,96,112,58,63,126,80,24,0 
600 REM xx IMAGE 6 RAIN xx 


610 DIM RAINS(10):FOR I=1 TO 10:READ ATRAINS( 
T,T)=CHRS(A) NEXT TSRAI=ADR(RAINS) SPOKE IMGPN 
Т%7,ІНТ(КА1/256) 

612 POKE IMGPNT+6,RAI-Z56PEEK CIMGPNT47) 

614 DATA 32,4,8,65,32,133,32,8, 68,0 

620 REM xx IMAGE 4 DART xx 

624 DIM ОАКТФ(9) :РОК I-1 TO 9:КЕАЮ ASDARTS(T, 
T)=CHRS(A) NEXT ITDAR-ADR(DART$) SPOKE IMGPNT+ 
34 INT (DAR/256) 

625 POKE IMNGPNT+4,DAR-Z54"PEEK (INGPNT+5) 

626 DATA 16,16,16,16,16,55,55,40,0 

428 КЕН xx IMAGE 2 xx 

630 DIM BALL$(11);FOR I-1 TO 11:READ AtBALLS( 
T,T)=CHRS(A) :МЕХТ ISBAL-ADR(BALLS):POKE IMGPN 
T+3, INT (ВА /256) 

632 POKE INGPNT+2,BAL-Z54"PEEK (INGPNT+3) 

640 DATA 35,24,52,122,126,126,126,126,60,24,0 
642 REM xx IMAGE 0 xx 








645 DIM 2$(1)3Z$=CHR$(0) 3ZERO-ADRCZ$) :РОКЕ ІН 
GPNT41,INTCERO/256) SPOKE ІНСРИТ,2ЕК0-256АРЕЕ 
KOMGPNTH) 

849 REM xx INIT, IMAGES, HOR. & VERT. POS, xx 
650 FOR І-1552 TO 1547:READ А:РОКЕ І,А:МЕХТ I 
650 DATA 2,2,2,4,0,0,0,120,0,0,0,0,50,70,130, 
230 

659 REM xx PH GRAPHICS - COLORS xx 

470 POKE SDMCTL,42:POKE GRACTL,3 

695 POKE PCDLRO,38:POKE PCOLR1,55:POKE PCOLR2 
ИРКЕ PCOLR3,85 

700 &-USRCIS3A) 

720 RESTORE 725:DIM MPH$(5) ,SPD$(8)3FOR Ігі T 
0 S:READ ASHPHS(I,D)-CHRÉCA) :МЕХТ І 

722 FOR I-1 TO BiREAD A SPDS(I D -CHR$CA) :МЕХ 
T ISPOKE FLAG3,0:POKE FLAG4,0:PDHE FLAGS, 0 
725 DATA 3,6,7,14,20,254,1,253,2,251,3,250,4 
726 FOR Ісі TO М:Т‹1)=0:МЕХТ ITPLYR-0:G0SUB 
1400 

728 POKE SPEEDS, DSPD:SHOTS=AMMOSCOTO 732 

729 REM xx MAIN LOOP STARTS НЕКЕ хх 

730 GOSUE 1500:РОКЕ 77,0:5DUND 3,0,0,0:G0SUB 
1700:8H0T5-AMMO 

732 ? $53CHR$(125) POSITION 1,01? #0; "ХХХХХХХ 
XXXXXXXXXXX ":КЕМ X'S IN INVERSE 

734 SX=33SY=19:FOR І-1 TO SHOTS:COSUB 11001? 
$45"R"5SNEXT 119X73191719 

740 RÜ-RNDCO)XDLY:R1-RND(O)xDLY R2-RND CO) xDLY 
742 TUPLYR)ZTCPLYR) 4TOT? TOT=0 

756 POSITION 4,183? $46;"shots"iPOSITION 13,18 
17 $4} "wind" POSITION 12,221? #4;“score" 

762 PLYR-PLYR*1:IF PLYRONP THEN PLYR-1:RQUND- 
ROUND+1:GOSUB 1400 :1Ғ ROUNDONR THEN 1000 

764 POSITION 12,193IF R8-0 THEN FOR I-1 TO 6- 
ROY? 356; 4" j ENEXT I 

766 IF К8=1 THEN FOR 1-1 TO 5-893? КУНІНЕ 
XLI 

780 POSITION 2,5? #4;"PULL STICK TO GO" 

782 POSITION 12,213? $6; T(PLYR) 

784 FOR J-1 TO 30:NEXT JiPOSITION 3,231? #45" 


786 FOR J-1 TO 30:МЕХТ JiPOSITION 11,231? #4; 
"plur $'PPLYRIPOSITION 3,231? #4;"rnd "ROUN 
D 

788 IF STICK(0)4013 THEN 784 

790 POSITION 2,51? $43" " 

800 IF SHOTS=0 THEN 830 

810 IF STRIG(O)=0 AND PEEK(FLAG3)-0 AND PEEK( 
FLAGA)-0 THEN POKE FLAG3, 1:5H0TS-SHO0TS-1:60SU 
B 11007? #43" "$ 

820 IF PEEK(FLAG3)=1 THEN POKE АШСА, 168 

830 IF PEEK(FLAG3)-0 THEN POKE AUDCA, 0 

835 R-INT(RNDCO) XDIF)41:8P-ASCCSPDS GR ) 

840 IF PEEK(FLAGO)=0 THEN RÜ-RO-1:POKE AUDCI, 
0 

842 IF RO<O THEN RÜ-RND(O)XDLYTPOKE FLAGO,1iP 
ОКЕ SPEEDO ,SPSPOKE ІМАСЕ0,2:Е0-071Ғ RND(O)<BP 
R THEN GOSUE 1300 

844 IF PEEK(FLAGO)=1 THEN POKE AUDC1,162 

850 IF PEEK(FLAGI)=0 THEN RI-RI-1:POKE AUDC2, 
0 


852 IF К1<0 THEN Ri-RND(O)XDLY:POKE FLAGl,1iP 
(ЖЕ SPEED1,SP;POKE IMAGE1,2:E1-0:IF RND(0)<EP 
R THEN GÜSUE 1310 

854 IF PEEK(FLAG1)-1 THEN POKE AUDC2,142 

840 IF PEEK(FLAG2)-0 THEN R2=R2-1:POKE AUDC3, 
0 

852 IF R2<0 THEN R2-RND(CO)XDLYTPOKE FLAG2,1:P 
(ЖЕ SPEED2,SP:POKE IMAGE2,2:E2-0:IF RNDCDABP 
R THEN GOSUB 1320 

864 IF PEEK(FLAG2)-1 THEN POKE AUDC3,162 

870 IF PEEK(FLAG4)=1 AND PEEK(FLAGS)-0 THEN G 
0506 1500:РОКЕ IMAGES,4:POKE FLAGS,1 

880 IF PEEK(FLAGS)-1 THEN SOUND 3,PEEK(VPOS3) 
,10,8:IF FLAGS=1 THEN POKE IMAGE3,14 

890 IF PEEK(FLAGS)=0 THEN POKE ІМАСЕЗ,4 

900 IF SHOTS=0 THEN PTIM=0:TIME=HAIT COTO 730 
910 TIME-TIME-1:IF ТІМЕ<0 THEN ТІНЕ-МАТТ:009) 
Б 1200:IF РТІМ>18 THEN РТІН-0:0070 730 

920 GOTO 800 

999 REM xx FINAL SCORES xx 

1000 ? $5;CHR$(125) {POSITION 3,337 #4;"final 
scores" $X=33Y=5:FOR Ісі TO NPIPOSITION X,Y 
1005 ? $5;"PLYR # "jI;"-"jTOD i Үс NEXT I 
1010 GOTO 1010 

1099 REM xx POS, FOR PRINTING 'x' xx 

1100 5Х=5Х+1:1Е SX-9 THEN 5Х=4:51=5ү+1 

1110 POSITION SX,SY:RETURN 

1199 REM xx POS, FOR PRINTING ‘x’ xx 

1200 PTIM-PTIMM1:POSITION РТІМ, 037 БУЫ 
TURN 

1299 REM xx CHANGE TO A BIRD SUBR, xx 

1300 POKE IMAGE0,8:POKE SPEEDO,1:E0-1:RETURN 
1310 POKE IMAGE1,8:POKE ЅРЕЕЮІ,1:Е1=1: 

1320 POKE IMAGE2,8:POKE SPEEDZ,13E2=1 RETURN 
1399 REM xx WIND SPEED AND DIR SUPR, xx 

1400 R9-INT(ND(O)251) $MPH-ASC CMPH$ CR) ) РОК 
E WIND, MPHSRO=INT (RND(0)*2) SPOKE DIR, RB: RETUR 
N 

1499 REM xx HIT BIRD OR BALLOON SUPR, ЖЕ 
1500 PHIT-PEEK(P3PL)?IF (Е0=0 AND Е1=0) AND E 
2-0 THEN GOTO 1508 

1502 IF (PHIT=1 AND Е0=0) OR (PHIT-2 AND Ғі-0 
) OR (PHIT=4 AND E2-0) THEN 1508 

1504 FOR I=1 TO З:РОКЕ IMAGE3,12:80UND 3,10x1 
+10,10,103FOR Ji TO З:МЕХТ Ј:РОКЕ IMAGE3,0 


1514 

1508 H3-PEEK(HPOS3) RESTORE. 1530:Ғ0К 1=1 TO 3 
(КЕҢ) M,X$POKE HPOS3,H3-X:PONE SIZEP3,MiPOKE 
IMAGE3,10 

1510 SOUND 3,100-10x1,12,10;POKE 1555,0:Ғ0Ж J 
=1 TO 30:NEXT JiNEXT I:POME 53259,0:FLAGó-0:P 
ОКЕ 1559,Н3 

1514 IF PHIT-1 AND E0=1 THEN Е0=0:Т07=Т07-60 
1516 IF PHIT-2 AND Еі-і THEN E1-0:TOT-TOT-40 
1518 IF PHIT-4 AND E2-1 THEN E2-0:TOT-TOT-20 
1520 IF PHIT=1 AND E0=0 THEN TOT-TOT430 

1522 IF PHIT-2 AND Е1=0 THEN TOT-TOT420 

1524 IF PHIT-4 AND E2-0 THEN TOT-TOT410 

1526 POSITION 12,211? $6; T(PLYRH TOT?" " 
1528 RETURN 


Note: In the "Bankshot" VBI routine in the June issue of ACE, 
the branch (BNE) at the end doesn't always work right, 
especially if more than two players are used. Try changing the 
BNE to ВСС, In hex, the DO should be 90 or in decimal, the 208 
(next to the last byte) in line 300 should be changed to 144, 


-Stan Ockers 


1506 FOR J-1 TO 3iNEXT JiNEXT ItFLAGE-1 1G0T0 ^ | 


1530 DATA 0,0,1,8,3,16 
1599 REM xx DART TO INIT. POS, xx 


1000 POKE FLAG3,0:POKE IMAGES, 4¢POKE ҤО5З, 2. 
ОРОКЕ \Р053,23@}РОКЕ FLAGS, 03RETURN 


1699 REM Xx ROUND OVER SUER, XX 

1700 FOR I-1 TO 10:ҒОК J-1 TO ЗО:МЕХТ JiPOSIT 
TON 5,6:IF SHOTS=0 THEN ? #4;"out of shots":G 
OTO 1720 

1710 ? #4;"out of tine " 

1720 POSITION 12,2137 $6; T(PLYR)+TOTSFOR J-1 

TO 30:NEXT JiPOSITION 5,62 #4)" 


1730 POSITION 12,211? #;" 
N 

1799 REM xx ENTER PARAMETERS SUPR, xx 

1800 ? $5;CHR$(125) POSITION 3,33? #6; "PLAYIN 
G VALUES" POSITION 3,91? #0; "епіег one #" 
1810 POSITION 3,73? $56;"(1)4 SHOTS =";АММО:РО 
SITION 3,81? $63"(2)DART SP,z"j 
1820 POSITION 3,9? #0; "(3)ВА, 
ITION 3,103? м (4)BAL. DLY="SDLY 
1830 POSITION 3,112? #03"(5)КМ) TIME="jHAITIP 
OSITION 3,121? $6" (6)& ROUNDS-";NR 

1840 POSITION 3,13%? М; (73% PLYRS ="; 

1842 POSITION 3,14:? #4;"(B)BIRDS =";ВРК 
1845 POSITION 3,15:? #43"(9) NO CHANGES" 

1850 GET Н,АҒІҒ А<49 OR 8257 THEN 1850 

1855 TRAP 1800 


"SNEXT TRETUR 


=" DIF ‘POS 


A 1860 ? $6; CHR$(125) POSITION 3,6:K-A-481G0SUE 


19004510 
1870 IF К=9 THEN RETURN 
1880 GOTO 1800 
1910 ? 8; SHOTS = "SAMMOSPOSITION 6,101? + 
&;"(1 TO 200"1G0SUB 1991:6MMO-A: RETURN 
1920 ? #6;"DART SPEED =" DSPD POSITION 3,101? 
#4;"1(SLOW)-20(FAST)"SGOSUB 1991 :DSPD=ASRETU 
RN 
1930 ? #6;"BAL. SPEED =";DIFSPOSITION 3,101? 
#4;"1(SLOW)-B(FAST)"SGOSUB 1991: DIF-A RETURN 
1940 ? t5;"BAL, DELAY -"jDLYTPOSITIUN 2,103? 
$61" 1(5HORT) -S0 (LONG) "300608 1991: DLY-A:RETUR 
N 
1950 ? &6;"RND TIME -"jHATTIPOSITION 3,107? ¢ 
6;"S(FAST)-30(SLOW)"SGOSUB 1991: HATT-A RETURN 


1960 ? 8:4 ROUNDS -"jNRIPOSITION 4,101? #4} 
" (1-ЯНАТЕМЕК) "60506 1991 NRA RETURN 

1970 26/4 PLAYERS = "jNPIPOSITION 5,10:? $ 
6$" (1 OR МОКЕ) "160506 1991: NP-ATRETURN 

1980 ? $5; "BIRD PROB, = "$BPRSPOSITION 5,10? 
161" (0,1 TO 0,9)" $G0SUB. 1991: BPR-ATRETURN 
1990 RETURN 

1991 NS=""SPOSITION 3,81? $6;"INPUT NEW VALUE 
"+ POSITION 8,12 

1992 GET $1,601? #4;CHRS(A)$ SIF A=155 THEN A=V 

AL (NS) RETURN 

1994 NS(LEN(NS)+1)=CHRS(A) 16070 1992 


Q) 
AS 
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The following source listings are to help with understanding of the 
Machine language sub-routes on the BASIC program and are not typed in by 
you. The DATA statements in the BASIC рогагам are the десінгі 
equivalents of the following (ed.) 


Sound 


10 } ROUTINE TO FILL SOU. FREQ, RED. 


D200 20 AUDFi = 80200 
D202 30 AUDF2 = $002 
D204 40 AUDF3 = 90204 
0206 50 AUDF4 = 80205 
0614 60 HF0S0 = $0614 
0515 70 НРО51 = $0615 
0616 BO HPDS2 = X $0616 
0523 90 FLAG3 = $0423 
DALF 0100 УР05:- $06iF 
0000 0110 x- $0000 
0000 ADI404 0120 LDA HPOSO Transfer horiz: 
0003 800002 0130 STA AUDFL pos. to freq. 
0006 àD1505 0140 LDA HPOS1 registers 
0009 800202 0150 STA AUDF2 
000C А01506 0150 LDA НР052 
000Ғ 800402 0170 STA AUDF3 
0012 ADZ3046 0180 LDA FLAGS Is dart active? - 
0015 Ғ004 0190 BEQ OUT No 
0017 ADIF04 0200 LDA ҮР053 Transfer vert, 
0014 800502 0210 STA AUDF4 to freq. 
0010 ҒА 0220 QUT МР 
-D200 AUDFi =0202 АЮҒ2 =0204 AUDF3 -)20% AUDF4 
20414 НР050 -0615 НР051 =04146 НР052 =0423 FLAG3 
=061F УР053 0010 QUT 
Нот З 
10 ; ROUTINE TO MOVE 3 PLAYERS HORIZ: 
0524 20 SPEED = $0424 
0514 30 HPOS - $0514 
0420 40 FLAG = $0520 
00C8 50 RTLIN = $8 
0020 40 LILI = $20 
0000 70 - $0000 
0000 à202 80 LOX #$02 Three players 
0002 BD2005 90 MOVE LDA FLAG,X Ck for movement 
0005 FOZE 0100 BEQ NXT No воме 
0007 РС2406 0110 LDY SPEED,X Get speed in index 
000A F029 0120 BER NXT If zero, no movement 
0002 300F 0130 BMI REV If nea. ao backwards 
000Е FE1405 0140 FOR ТМС HPOS,X One step forward 
0011 88 0150 DEY More? 
0012 DOFA 0160 BNE FOR Yes 
0014 BD1406 0170 LDA HPOS,X Get horiz. pos. 
0017 C9CB (180 ӨР ТЫН Тоо far right? 
0019 А 0190 BCC NXT No 
. 0018 600D 0200 BCS STOP Skip over 
0010 [#1404 0210 REV DEC HPOS,X Back one step 
0020 C8 0220 INY More? 
0021 DOFA 0230 BNE REV Yes 
2 0023 BD1406 0240 LDA HPOS,X Get horiz; pos. 
0026 C920 0250 ОР WTLIM Тоо far left? 
0028 BOOB 8250 BCS МТ No 
002A A900 0270 STOP LDA #900 
002C 9014046 0280 STA HPOS,X Put player off screen 
002Ғ 902406 0290 STA SPEED,X and stop moverent 
0032 902004 0300 STA FLAG,X 
0035 CA 0310 NXT Ж More players? 
0034 104 0320 BPL MOVE Yes 
20524 SPEED 20614 HPOS =0420 FLAG =00C8 RTLIM 
=0020 LTLIM 0002 MOVE 0035 NXT 001D REV 
000E FOR 002A STOP 
Міг 
10 $ ROUTINE TO MOVE DART 
DOOF 20 P3PL = %000Е 
0020 30 ULIM = $20 
0623 40 FLAG3 = $0423 
0628 50 WIND - $0528 
0529 60 DIR - $0529 
0527 70 SPEEDS = $0627 
0504 80 ТЕРІ = МА 
0078 90 STARTX = $78 
00Е0 0100 STARTY = $Е0 


0617 0110 HPOS3 = $0617 


0&1F 0120 NEWV3 $061F 

0000 0130 x- $0000 

0000 402306 0140 LDA FLAG3 Test for dart move 

0003 FO3C 0150 BEG HIT If pos. no move 

0005 АҒ2706 0140 LDX SPEEDS Ном many tines thru? 

0008 ADIADA 0170 MOVE2 LDA TEMPi Get counter 

0008 0013 0180 BNE VMV If not zero, only vert. 

0000 402805 0190 LDA WIND How many vert before horiz.? 


0010 800005 0200 STA TEMPI Reset counter 

0013 402908 0210 DIR Which way to nove horiz.? 
0016 0005 0220 RIGHT Go right 

0018 CE1704 0230 НР053 Else go left once 

001B 1003 0240 жу 

0010 EEI794 0250 RIGHT НР053 One space right 

0020 CEIF04 0250 VMOV Üne space ір 


TEMPi count for horiz. move 
МЕНУЗ Have we reached limit? 


0023 CEBADA 0270 
0025 ADIFO4 0280 
0029 C920 0290 
0028 В011 0300 
0020 8978 0310 


AGAIN No, skip 
SSTARTX Yes, put back at start 


PESSRRERRRS 


002Ғ 801706 0320 STA HPOS3 
0032 AVEO 0330 LDA #5ТАКТҮ 
0034 801Ғ06 0340 STA NEWU3 


0037 A900 — 0350 
0039 802304 0360 
003С Ғ003 0570 


$400 Set flag so routine stops 


No more movement 


8ЕЗЕЗЕ 
z 


003Е CA 0380 AGAIN Go thru again? 
Q03F 107 0390 MOVEZ Yes 
0041 ҒА 0400 HIT 
-DüUF P3PL -0020 МІН 20423 FLAG3 70428 WIND 
20529 DIR 20527 SPEED3 -050A ТЕНРІ =0078 STARTX 
=Q0E0 STARTY z0517 HPOS3 -061Ғ МЕНУЗ 0041 HIT 
0008 MOVEZ 0020 VMQU 001D RIGHT 003E AGAIN 
Hit 
10 } ROUTINE TO HANDLE COLLISIONS 
DOOF 20 P3PL = $000Ғ 
0520 30 FLAGO = $6420 
0623 40 FLaAG3 = $0423 
0514 50 НР05 - $0614 
0524 0 FLAGA = 90624 
052C 70 SCORE = — $062C 
0000 80 = $0000 
0000 ADZA04 90 LDA FLAG4 Is hit already active 
0003 DOIF 0100 BNE 0071 
0005 ADOFDO 0110 LDA P3PL Any collisions? 
0008 FOIA 0120 BER ОЛІ No 
000A A200 0130 LDX #$00 Find out which 
000€ 4A 0140 SHIFT LSR A player 
0000 B005 0150 BCS FOUND This is the one 
000Ғ ЕВ 0160 ІМХ Next player 
0010 Ғ004 0170 CPX ҰМ Last player? 
0012 DOFB 0180 BNE SHIFT No, try another 
0014 A900 0190 FOUND LDA #00 
0015 802306 0200 STA FLAG3 Stop dart 
0019 902004 0210 STA FLAGO,X Stop player and 
001С 901405 0220 STA HPOS,X remove from screen 
0 ШІҒ А901 0230 LDA #$01 Signal that hit 
0021 802406 0240 STA FLAG4 has taken place 
0024 ҒА 0250 071 NOF 
=D00F P3FL -0620 FLAGO 20523 FLA63 -0014 НР05 
-0524 РАБА =042C SCORE 0024 00Т1 000С SHIFT 
0014 FOUND 
Fall 
10 $ ROUTINE ТО CAUSE FALL 
DOLE 20 HITCLR = ‘$D01E 
042A 30 FLAG = $042A 
0426 40 FLAGS = $0428 
0617 50 HFüS3 = $0617 
051F 60 МЕЗ = $ АР 
00Е0 70 BTLIM = $0 
0078 80 STARTX = — $78 
00Е0 90 STARTY = $0 
0004 . 900 DART = $04 
0513 0110 IMAGE3 = $0613 
0000 0120 = $0000 
0000 А0260 0130 LDA FLAGS Fall routine active? 
0003 F024 0140 EEQ 0072 No 
0005 EEIFO4 0150 INC МУЗ Go down one space 
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0008 ADIFOS 0140 LDA МЕНУЗ Have we reached 
0006 СЕО 0170 СИР $BTLIM botton? 2 in 
0000 901A — 0180 BCC 077 Not yet ees BCC HORIZ м, GET ANOTHER Sub Д 
ІШЕ 801Е00 0190 STA HITCLR Clear coll. reg. олы ыы WF 5842 BACK TO ATARI’S VET 
0012 A978 0200 ША #STARTX and put back to origin 0073 0680 «END 
0014 801706 0210 STA НР053 
0017 A90 0220 ША #STARTY =0614 НР05 =0618 OLDV =061C NERV =00CE АРТЕ 
001C A904 0240 LDA DART Change inage to -0630 IMGP =00СЕ STOR =0000 PLYRH 0000 VEI 
001Е 801304 0750 STA IMAGE3 ба 0010 HORTZ 0026 UPDATE 005B NXTPLYR 0032 ZERO1 
0021 4900 — 0240 LOA #$00 Clear flags 0043 LDPLYR 0051 PLEYTE 0053 CLREST 0050 UPONE 
0023 802406 0270 STA FLAGA 0065 ZERDZ " E bo , 
0026 802806 0280 STA FLAGS. C ha TO r 18 729 
0029 ҒА 0290 QUT2 NOP © 
о i 
-DÜ1E HITCLR -0624 FLAG4 -052B FLAGS 20517 НР053 e a 
-061Ғ НЕЗ =00Е0 BTLTM 20078 STARTX =00Е0 STARTY А uà 2 
20004 DART 20513 IMAGE3 0029 QUT2 AA 
VEI 99 | u too can become famous!! 49 IG 
^ att Gi ) 
10 ; ROUTINE FOR X & Y POS. WITH POKES 6 ow d IE à 6 
0414 20 KPDS = $0614 -2 to % aue is to encourage new authors, You spend hours, nay, "ner 34 
0518 30 OLDV = $0518 ё - Э 2. to Y or weeks, slaving over a program. Now it works, What do (29 K 
051C 40 NEW = $06iC (29 «V ou do with it? Send it to ACE? Definitely, Anything else? qa іс 
00Cb 50 APTR =  $00CB MY © Yes, please read on. : 
00CD 40 IPTR -  $00CD ЖҮ др a This is one person's account, mostly true, of how I got into А 6 
008 70 PHPG = $0508 А 40 selling software, AG 157 
050C 80 INGO =  $050€ > 2,9 Lo I have had five programs published (two for money) by | " | : 
0610 90 IKGN = $0610 \ Р 20 Qe various sources and five more optioned by COMPUTE! How did £0 іы 
0530 0100 IMCP = $0630 6 4 0% І get started? It all goes back to 1947 when I was hired by the 6 
ГЕ 0110 STOR = $00CF ME Navy and there was little for me to do while waiting for ту APR 
D000 0120 МҮН = $0000 xu Clearance to come through. The man who was assigned to break XC d "S 
0000 0130 - $0000 me in suggested I learn programming. I allowed as how that (%7 MP 
0000 18 0140 VBI аг 4 was a good way to kill time and in six months I was assigned ,. qf 36 
0001 400604 0150 LDA PMPG ADD TO PH HI see cognizance of a major computer-aided design effort. [I knew § 2 ё 
0004 4904 0160 ADC #$04 FOUR PAGES TO GET ss: how to program, didn’t 121 It is hard to look back upon 1967 
0005 BHCC 0170 STA APTR+1 МҮК AREA PTR HI wo a, 09 and put it in perspective but at the time that must have been a 
0008 A200 0180 LOX #$00 X IS PLYR COUNTER lox ^ rare skill for an aspiring program manager. 
000A BEF 0190 STX STOR Other than a short period with the SR 52 that was the limit 
000C A000 — 0200 LDY #$00 Y USED IN INDIR OPER, of my hands on experience with digital equipment until I 
000E 848 0710 STY АРТЕ ordered the Bally Home Computer from that Chicago outfit. 
0010 6D1406 0220 HORIZ LDA HPOS,X UPDATE HOR. POS, Well at that point I got in contact with Bob Fabris and his user 
0013 900000 0230 STA PLYRH,X | newsletter, The ARCADIAN, First off I sent in this program 
0014 BDÜCOA 0240 4 | LDA HAS IMAGE CHANGED? — (НО for LIFE.IV for free publication. (COMPUTE! has optioned an 
0019 001004 0250 —— 3 ATARI version) The next issue Bob advertised it in the back 
001C 0008 9260 BNE UPDATE’ YES of the issue saying I would sell it for $5. Bob made an 
001E BOICOS 0270 LDA NEW,X — CHECK IF VERT. POS. ott entrepreneur of me. He also taught me something. I sold 
0021 001804 0280 CMP OLDV,X — CHANCED \ \ € three copies, not one of them west of the Mississippi. Within 
0024 FO BED NXTPLYR SKIP IF nor je Ly six months it was being blatantly offered for sale by other 
0300 UPDATE LDA  TMCN,X | UPDATE OLD > ” parties оп the West Coast without even the courtesy of 
0029 9000 Bl STA ІМОЛ IMAGE 2. M the name, My skull may be thick, but even that got 
0920 Р01206 0320: TOA REWU,X — UPDATE OLD VERT, i rough, 
002F 901805 0330 STA OLDV,X — POSITION ob 20 Later Bob worked a deal with ASTROVISION, the new 
0032 ASCE 0340 ZEROi LDA АРТЕ CK. IF REACHED .. \006 manufacturers of the Bally Arcade, to include an ad for the 
0034 (91206 0350 CMP NEWV,X — VERTICAL POS. YET eO Newsletter and he offered me $0.25 per subscription he 
0037 ИА 0340 BEQ LDPLYR — IF SO, START LOAD received to include one of my programs. In the summer of 1981 
0039 4900 0970 LDA 800 ELSE FILL WITH ... I jumped at found money, In the Fall I bought an ATARI, 
0038 918 0380 STA (APTR),Y ZEROS... (Bless you, IRS Rule Makers.) 
0030 E&CE 0390 INC АРТЕ UNTIL YOU DO Frankly I first contacted this group because I thought the 
003F FOZA 0400 BEQ NXTPLYR (ОЛ OF PLYR AREA) ATARI was just like the Bally and Eugene ACE was just 
0041 DOEF — 0410 BNE ТЕРІ ig another version of the ARCADIAN, Later I discovered there 
0043 Р01006 0420 LDPLYR LDA IMGN,X. USE IMAGE NUMBER ... were national magazines which covered the ATARI computer, 
0046 AA 0430 TAX AS INDEX АЮ... 2 39 (There is some story about the dummy who always falls flat on 
0047 ED3004 0440 SET UP INDIR, = Ж. his face but comes up with a $10 billin his mouth.) So after 
004A 85CD 0450 EE ARA POINTER three months I mailed off a few articles and some of my 
004C BD3104 0440 LDA INGP+1,X programs which I wrote -- modified -- created to learn the 
МАҒ BSCE 0470 STA IPTRH ATARI computer. LO! and BEHOLD! there comes a check in the 
0051 B1CD 0480 PLBYTE LDA (IPTR),Y GET IMAGE... mail, 
0053 FO0E 0490 BEQ CLREST. IF А ZERO, FINISHED At that point I had earned about $85 and had about $4000.00 
0055 91CB 1500 STA (APTR),Y PUT IN PLYR AREA sunk into various computer related equipment. So what was I 
0057 E&CD 0510 INC IPTR NEXT IMAGE EYTE do? That was a challenge, There I was, I had gotten into 
0059 D002 0520 BNE UPONE NO PAGE CROSSING selling software by mistake. I wrote up a couple of learning 
0056 БЕ 0530 ІМ IPTR+i РАСЕ CROSSING type programs and а check сате in the mail. Visions of the 
0050 ECB: 0540 UPONE INC APTR ~~ NEXT AREA BYTE next VISICALC or PACMAN danced in my head. Obviously I 
005F FOMA 0550 BEQ NXTPLYR REACHED END OF AREA started cranking out computer programs, As long as I am 
0061 DOEE 0540 BNE PLBYTE | NEXT IMAGE BYTE addicted to them personally and spend half of my time writing 
0083 A900 ^ 0570 CLREST LDA 4500 ZERO QUT REST .. them then I might as well make a few bucks on the side. 
(045 9108 0580 ZEROZ STA (APTR),Y OF PLYR AREA Besides the time required to write the article is nothing 
0057 ҒЫВ 0590 INC АРТЕ compared to the time required to get the program working in 
0049 DOFA 0400 BNE ТЕКО? the first place. (How the hell Ockers does it, I do not know.) 
0068 ECE 0410 NXTPLYR INC APTR+i NEXT AREA The article probably isn't what Mike had in mind but I hope  , ; 
0050 АСЕ — 0520 LDX STOR RECOVER PLYR INDEX it starts other programmers to writing. We need more ада 
006 EB 0030 INX NEXT PLYR software, РО 
0070 ВАС 0640 STX STOR — SAVE INDEX RL 
0072 E004 0450 CPX #$04 LAST PLAYER? 1 1 
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Interfacing your Atari 
to the Real World 


by Marshall 5, Dubin 
Michigan ACE Newsletter(Apr & May, 82) 


Part Onei Basic Input? 


With the addition of a few parts and some external circuits, 
your Atari personal computer can send and receive signals from 
the "real world." These signals сап be the monitoring of 
alarms, themostats, and a variety of digital and analog sources 
which in turn can control various motors, appliances, lights, 
etc. The purpose of this article is to discuss a method in 
which we can monitor up to four input signals from external 
soucrces in the real world, 


For our purposes we will be using the joystick ports which 
are located on the front panel of the computer. Figure 1 shows 
а pin connection diagram of а single port. All four ports share 
this connection pattern. 


Note that there are four pins labled PIA. These pins are 
connected directly to the internal PERIPHERIAL INTERFACE 
ADAPTER CHIP of the computer, The pins may be formatted 
for either input or output. We shall discuss them in more 
detailin future articles. Additional pins are the trigger pin 
for joystick trigger buttons, two analog input pins, (used for 
paddle controllers), a 45у pin and a system ground ріп, In this 
example we shall use the TRIGGER pins. Because there are 
four ports, each port may control a different device connected 
to the trigger pin of that port. 


1-4, PIA 





| Analog 1 (inpute) 
Trigger Analog 2 
t 5 volts System ground 


(Vcc) 


Figure 1: Pin Connections 


Basic Input Using the Trigger Fin 


When the computer is first switched on, the trigger pins are 
at logic 1 (high) state, This is the DEFAULT Status of these 
pins. The normal procedure when using the joysticks is to have 
the computer react if the pin reads LOW (logic 0), When this is 
the case, the trigger is assumed to have been pressed. The 
following listing illustrates this point: 


10 X-STRIG(0) REM for port one 

20 IF Х-0 THEN PRINT "TRIGGER 15 ACTIVE" 
30 PRINT "TRIGGER IS NOT ACTIVE" 

40 GOTO 20 


The computer will take one action when the trigger is 
pressed and do something else when it is not. Any game using 
joysticks illustrates this point. Now what if an alarm sensor, 
liquid level sensor or light activated switch were connected to 
the joystick trigger input? Ah-ha. We begin to see that the 
old joystick port can do more than blow away 2у1опѕ! 


The Basic Input Connection 


As І mentioned earlier, the default status of the trigger 
ріл is a logic опе, To simulate pressing the trigger button, we 
must make the status of that pin a logic zero, This is done by 
connecting that pin to the system ground, When we do that, 
the pin is said to have been "pulled low," and will now read а 
rero. 


The easiest way to do this is by connecting pin 4 of the 
controller port to pin 8 of the same port. In the real world 
situations though, especially if you are monitoring something 
more than a TTL level signal, this is best accomplished through 
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the use of an external relay or better still an 
OPTO-ISOLATOR. Lets look at opto-isolators first. 


Ап opto-isolator is composed of a LED (light emitting 
diode) and a phototransistor. When voltage is applied to the 
diode, it glows. The light emitted from the diode reacts with 
the photo sensitive transisor and "biases" it into conduction, 
Here the transistor acts as a switch which is turned on by the 
light from the diode, and off when the diode is dark. Since 
power need only be given to the diode, there is no chance that 
a higher damaging voltage can cross the optical barrier and 
damage the computer. As illustrated in fiqure 2, when the 
transistor switch is ON, pin 6 of the controller port is 
connected to pin 8 (ground) thereby pulling it low, and 
simulating a trigger press. 


to pin 6 


to pin 8 (ground) 





FIGURE 2: Using an opto-isolator 


On this example, a relay is powered on by a high voltage such 
as 110 volts, and this causes the contacts to pull pin 6 low. 


Do not try to power the opto-isolator from the "on-board" 5 
volt supply. It can only withstand 40 milliamps, and has other 
uses, Also note that the diodes in some opto-isolators can 
draw as much as 100 milliamps current, so you will need a 
supply capable of driving at least one or more of them. In 
addition, you may have to use a current limiting resisor 
between the opto-isolator supply and the LED, especially if 
you use higher voltages to drive the isolator. Use Ohm's law 
to figure the resistance you will need for the voltage and 
current ratings you will be using, if they are different from 
mine, 


Fiqure 3 shows a method of using a relay to pull the trigger 


pin low. Figure 4 shows a light activated sensor (Sargent and 
Shoemaker, 1981) which will also work well, 


to pin 8 (ground) 







to voltage powering 
relay coil 


e————97 0 


Figure 3: Use of a relay 


| --------ә to pin 6 (trigger) 


When switch is closed, a signal is passed to the computer, 
Switch can be part of a relay if you wish to monitor high 
current devices. Here your device triggers a relay, which in 
turn will turn on the opto-isolator, 


© light 
+5V 





FIGURE 4 
The on/off status of a light can be monitored by using a 
photoresistor as the LED’s current limiting resistor, If the 
photoresistor circuit uses more than five volts, an extra 
current limiting resistor may be needed. (LED current 
shouln't exceed 30 ma). 


Proaramming Considerations 


The sensors can be used in a program in much the same way 
as the joystick trigger buttons. The keyword STRIG will read 
the status of this pin as it does for the normal use of the 
joystick, Please note that the PTRIG keyword does not access 
pin 6 of the controller port, but uses different pins, You must 
use the STRIG keyword, or else PEEK locations 644, 645, 646, 
or 647 to read the pin status. Each location is for a different 
port, ед, 644 reads port 1, etca much the same for STRIG(O), 


So Now What 


Go to it! Your computer can read and react to all kinds of 
neat things beside Zylons or Space Invaders. Try using a light 
beam sensor as a counter, or determing how many times your 
furnace motor kicks on during the дау, or reacting to a metallic 
"end of tape" sensor for programable slide shows, or even 
bio-feedback (be SURE to use optical isolation)! What it boils 
down to is your imagination. Experiment! Learn! Enjoy! 


In future articles I will be discussing output as well as the 
uniqu built in faclity of the Atari to accept analog input 
without the need for complicated external circuitry. I might 
also suggest a very good kit made by Mosaic which includes 
two DB?S plugs, ribbon cable and instructions for interfacing 
for only $15 (POB 748, Oregon City, Or 97045), 
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Interfacing your Atari 
to the Real World 
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Part Two: Controlling Power 


We will now look at ways to use the joystick ports for 
output. This gives you a means to control a wide variety of 
external devices, relays, and the like. 


As you can see from the pin diagram in the figure, the 
joystick port has several potential input sources available. 
For example , two of the pins are intended for use with the 
paddle controllers. These are called the ANALOG pins. They 
take an analog source such as a variable resistance and 
convert it into a digial signal. This in essence is how the 
paddles function. They provide a resistance via a 
potentiometer within the paddle unit, between the analog input 
pins and +5 volts DC. The computer interperts the variable 
voltage as a digial number between 0 and 228, This is called 
"on board" analog to digital conversion, Units performing a 
similar function may be purchased at a hefty price, but Atari 
owners have the use of 8 of these units built right in! 





1-4, PIA Analog 1 (inputs) 
Trigger Analog 2 
+5 volts System ground 


(Vcc) 


For now, lets concentrate on pins 1-4 on the joystick ports. 
These are the pins of the Peripheral Interface Adapter chip, 
commonly referred to as the PIA, The PIA provides a mean of 
connecting your computer to peripherals, and can be 
programmed for either input or output. There are two PIA 
ports of eight bits each available for your use. Joystick ports 
1 and 2 compose PIA port А, while joystick ports 3 and 4 
compose PIA port B. Each port is one byte (8 bits) and may be 
used together or individually to provide input and output 
functions. Some of these functions may be used to drive a 
printer or other accessory, or even a series of power relays 
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which can control alarms, lights, appliances, motors or 
whatever, 


The problem involved in controlling larger interface devices 
is a problem of taking a small amount of power and amplifying 
it, The prots on your computer are not made to power anything 
more than another chip. the manual recommends a maximum of 
1 TTL load (1.6 та.) for each PIA bit, and no more than 50 ma 
at the *5v pin. If we are using relays or controlling power, we 
will need at least 12-24 volts. 


There are several ways to accomplish this task. The 
figures below illustrate some of them. The most common 
arrangement is the transistor driver. In this arrangement the 
computer provides a very small voltage which turns on the 
transistors that in turn switch the load. А second way is 
through the use of opto-isolators. The computer provides 5 
volts which switches the LED of the isolator on. When the 
diode is lit, this triggers a photosensitive transistor which is 
connectd to a larger load or relay. А Darlington transistor 
package can be used in a similar fashion. The low voltage fires 
the Darlington transistor which can then switch a 
considerabley larger current, Finally there are integrated 
circuit interface chips such as the 7407 which allows a 
switching of up to 30 volts from the 5 volt TTL level of the 
Atari. 


АП of these methods will work, and actually which one to 
use will depend on the specific environment or task lined up 
for them. The method I prefer is the 7407 chip. It is 
inexpensive, will handle up to 30 volts and has six gates, so I 
can switch six devices from a single chip, and will handle about 
30ma, which drive most small relays or solid state switches, 


The 5147407 made by Texas Instruments is an open collector 
device. To use it you must connect a 2.2К ohm resistor from 
each output to +5 volts, When an output is "on" the output is 
actually open- so the resistor supplies +5 to the device you 
are driving. You can drive up to 30 volts at the outputs, by 
adjusting the value of the resistor. When ал output is "off", it 
is shorted to ground, and the device sees 0 volts (ground). Тһе 
resistor limits this current to a fairly low value so you don't 
blow the power supply or worse, the chip! Since the resistor 
can't supply much current, make sure the resistor/7407 
combination is seen as the "ground side" of your circuit, ise., to 
drive a relay, conect *5v to one side of the relay, and the other 
side to the output of the 7407, Then, to turn the relay on, turn 
the 7407 off, Current will flow through the relay, and then 
through the 7407 to around. 


You can easily drive descrete LED's with this too (such as 
for test lights), as well as a variety of small relays or solid 
state switches. Just make sure you sink the current with one 
end of your driven device to +5v through a resistor and the 
other end to the 7407, Sending a "0" (logic level low) to the 
РТА turns it off, If you want to do it the other way around, 
use the inverting 7406, which will turn your device on with a 
high logic level and off with a low level, Recognize though 
that the default state of the PIA when the computer is 
powered up is all bits high. If you are using an inverting 7406, 
your devices would come alive when you powered on the Atari. 
This is way I prefer to use the 7407, since I can power up and 
then have my software drive the devices by writing а 0 to the 
bit I want to power a device from. 


Speaking of bits, a few words are in order about the 
structure of the ports before you run off to warm up your 
soldering irons. The PIA as I mentioned earlier consists of 
two ports, А and B(PORTA and PORTB), These are controlled 
through the use of the control registers for each port, PACTL 
and PBCTL. You may have heard of the PACTL because thats 
the one you poke with 52 to turn on the cassette player. The 
addresses are as follows! 


PORTA 54015/$D300- port А address 


PORTB 54017/$D301- port B address 
PACTL 54018/$D302- port А control 


ХХХ x ox ox 


РЕСТІ, 54019/$D302- port B control 


On power up, the ports are initialized to $FFFF (all bits 
high). To use a port for input, just pull the bit of your choice 
low by connecting it to ground. To use the port for output, it 
must be formatted for output. The procedure is not complex: 


і, Poke the control register (PACTL or PBCTL) with 56/$38. 

2. Poke the port (PORTA or PORTB with 255/$ff, This 
specifies the part will be used for output. 

3. Poke PACTL оғ PBCTL with 60/$3C, 

4, Now just poke the port (PORTA or PORTB with your data, 


Essentially you have a total of 16 bits to play with. Just 
remember that two joystick ports make up one PIA port. Stick 
O and 1 are the A side and stick 2 and 3 are side B. Each 
joystick port is 4 bits or 1 nybble. Each side of the PIA is 8 
bits or 1 byte. When programming for output, you must 
remember that a specific BIT is driving a device. Therefore 
one joystick port can drive 4 devices (1 for each bit), Ап entire 
PIA side will handle 8 devices and if you use both А and B 
sides you cna trigger 16 individual devices at once or in any 
combination. You must POKE into that port a decimal number 
whose BINARY representation will switch on a certain bit or 
series of bits, For example, if I POKED а 255 into port А, all 
bits would be on. If I POKED a 12 into port А, bits 3 and 4 
only would be on. The individual joystick ports may be read 
using the shadow registers as follows: 


Jack 1 (STICK(O)) 632/%278 
Jack 2 (STICK(1) 633/%279 
Jack 3 (STICK(Z)) 634/$27A 
Jack 4 (STICK(3) 6357%27B 


You can also use the BASIC keywords STICK to access these 
ports, eg. X-STICK(0), etc. 


The program listing will provide you with a demonstration 
on how the ports are prograemed. The program first allows 
you to select a port, and program it for either input or output. 
then you can write data to the port and the computer will peek 
the port and verify the data you wrote. Granted this isn't 
elaborate, but it workds. Future articles will delve into useful 
contruction projects, so keep posted, 


Reprinted from М.А.С.Е. РОВ 2785, Southfield, MI 48037 ($15 
year) 


input 










Q2 


Vk 2М2222 


OPEN COLLECTOR OPTO ISOLATOR = 


TRANSISTOR DRIVER 


The program listing will provide you witha demonstration 
on how the ports are programed, The program first allows you 
to select a port, and program it for either input or output, 
then you can write data to the port and the computer will peek 
the port and verify the data you wrote, Granted this isn't 
elaborate, but it works. Future articles will delve into useful 
contruction projects, so keep posted. 


Reprinted from М.А.С.Е. РОВ 2785, Southfield, MI 48037 ($15 
year) 


1 REM REPRINTED FROM М.А.С.Е., РОВ 2785, 
SOUTHFIELD, MI 48037 $15 YR. 

10 REM PROGRAM TO FORMAT PIA PORTS 

20 REM by Marshall 5, Dubin 

30 GRAPHICS O:POSITION 10,2 

40 DIM I0$(10),DATA$(3) 

50 PRINT "РТА FORT DEMO" 

70 REM XXxPORT ADDRESSXXX 

90 PORTA-54016:PORTE-54017 

100 REM xxxRQUTINE TO CONFIGURE PORTXXxx 
130 TRAP 1301? 1? "Configure which port 
(1-40 

140 INPUT РОКТ:ІЕ РОКТ<1 OR PORT>4 THEN 
130 

100 REM XXXSECLECT PORT CONTROL REGISTER 
XXX 

170 REM xxx ADDRESS (PACTL, PBCTL) xxx 
190 IF РОКТ<3 THEN PCTL-54018:PORT-PORTA 
200 IF PORT22 THEN РСТ. =54019:РОКТ=РОКТВ 
210 ? 3? 

230 REM xxx SELECT INPUT OR OUTPUT xxx 

250 PRINT "Input or Qutput "$ 

260 TRAP 250;INPUT 10$ 


270 IF I0$(1,1)-"I" THEN Ғ-0:0070 340 
280 IF 10%(1,1)="0" THEN Р=255:6070 340 
290 GOTO 250 

320 REM xx CONFIGURE THE PORT xx 

340 FOKE PCTL,56 

350 POKE PORT,F 

380 FOKE PCTL,60 


. 990 REM xx ENTER YOUR DATA xx 


410 IF I0$(1,1)-"I" THEN PRINT "PORT IS 
FORMATTED FOR INPUT"SPRINT :GOTO 130 

420 PRINT “NOW ENTER YOUR DATA" 

430 PRINT "(ENTER & RETURN TO DO ANOTHER 
PORT)" 

440 INPUT DATAS:IF DATA$-"" THEN PRINT С 
HR$(125) :6070 130 

450 TRAP 530 

470 REM XXPOKE DATA TO PORT/VERIFY ITxx 
490 POKE PORT,UAL(DATAS) 

500 PRINT "VERIFY "jPEEK(PORT) 

510 GOTO 440 

520 END 

530 TRAP 40000:РКІМТ “INPUT ERROR, RE-EN 
TER "ФОТО 440 





Ground 


The Computer: Extension of 
the Mind 
by Merrianne Coon 


Computers are coming to the classroom! The University оғ 
Oregon College of Education's decision to devote its 3rd 
Annual Summer Conference to current and anticipated computer 
usage in the schools gives credence to this fact. 


Noted speakers such as the University's resident expert on 
computers in education, Dr. David Moursund, Dr. Alfred Bork, 
respected professor of physics from the University of 
California at Irvine and luncheon speaker, Harold Kinne, 
President of Halkin Computing Incorporated from Richardson, 
Texas presented their personal views of the "electronic 
revolution," Mr. Kinne pulled both familiar and "state of the 
art" electronic gadgetry from the inside and outside pockets of 
his clothing until the audience could not help but be convinced 
that we were indeed part of an amazing ега, 


In addition to the major sessions there were numerous 
special interest sessions and by the end of the conference the 
message appeared clear, Our schools must adjust to the times 
if they are to help prepare children to survive in a rapidly 
changing world. We must take advantage of computers to 
extend the power of the human mind. Dr. Moursund’s analogy 
that the computer could be an extension of the mind just as a 
saw and hammer could be an extension of the human body 
seemed appropriate. 


The educational emphasis seemed to be on putting the child 
in charge of the computer instead of simply using itas а 
machine for drill and practice activities where the computer is 
directing the child's activities, LOGO, the programming 
language for children, developed by Seymour Papert at 
Massachusetts Institute af Technology was demonstrated and 
mentioned throughout the conference as a method of using a 


Darlington Transistor Package computer to help a child learn to "think about thinking." 


Voltage Regulator 12-30V 





Relay Coil 





DARLINGTON DRIVER 


Contacts 


7407 DRIVER WITH RELAY 





Using inferior or inappropriate software and allowing 
children to use computers as a buffer to avoid social 
interactions were among the cautions mentioned concerning the 
adoption of this new technology in our schools. But the 
popularity of the conference and the breadth of thoughtful 
questions seemed to show that educators are also concerned 
and are willing to take charge of helping direct this potentially 
revolutionary and powerful “extension of the human mind." 








Keyboard for the аоо 


Several members have added regular keyboards to their 
Atari 40075, using various methods. When an Atari 400 is 
opened, and therefore voiding your warrenty, you can easily 
see where the membrane keyboard is attached to the 
motherboard through a ribbon cable and a 22-pin connector, À 
22 conductor Ribbon connector can then be soldered to the 
connector, or a 25 pin short stub connector can be attached 
along with a 25 conductor Ribbon and a 25 pin connector such as 
a Radio Shack 276-1565 attached to the other end. If you use 
the 25 pin connector method, you have an outside connector to 
attach your new keyboard to. The inside connector needs to be 
a stubby small type because of lack of room. 


Various keyboards can be used- if you can get the one used 
for the Atari 800, interfacing will be the easiest, but many 
standard keyboards will work. Mount the keyboard in some 
type of enclosure (a Lee Wards Artist Brushbox will work, or 
make one from 1/8" plywood), and mount 4 momentarily on, push 
button switches for the console switches, 


To wire your keyboard to your 400, you may need to use 
some type of connector to connect the keyboard to the ribbon. 
In general, pin 1 of the keyboard goes to pin 1 of the Atari 
connector, pin 2 to 2, etc. to pin 17, Pin 18 starts the console 
switches and goes to the reset switches. Wire one side of the 
consule swiches to a common ground wire and attach to pin 22 
on the Atari, which is the ground, The keyboard wiring 
diagram, by Denis Beddle of Australia, should help you 
interface other keyboards. 


The above article is based on articles by Nestor Sanchez 
from the San Diego ACE newsletter (may 82) and from Denis 
Beddle, an Australian. 








Send а business—-size SASE to 
the Ross’ for the new, updated 
ACE Library List!! 


Best of ACE-178681, still 
available, Disk от Tape, Ф! 
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Axlon RAMDISE 125K 


Ахіоп, 170 М. Wolfe Rd., Sunnyvale, СА 94086 (408) 730-0216, 
$600 


Th Ramdisk is a 128K memory board that fits into the 
middle memory board slot of the Atari 800, increasing your 
memory to 128K, A 16К board is put in front and back of the 
board, or Axlon sells a modified 32K board that goes in the 
first slot if you want the last slot to be empty for other 
boards such as the BIT-3 80-col board. It comes with software 
that allows it to be used as a super-fast electronic "disk 
drive", А special DOS is used, and you load the RAMDISK with 
the same commands as used for a regular disk drive. After the 
RAMDISK is loaded, programs can be loaded to and saved from 
the computer at incredible speed. It works especially good for 
making multiple copies of disks. The Ramdisk uses the middle 
of memory for operation, and occasional programs will not run 
with it because of memory conflicts, For these programs, a 
little switch on the ramdisk is used to turn it into a regular 
16K memory board. There are several programs that will soon 
be available to utilize the unique features of the Ramdisk, 
including Filemanager 800 from Ѕупараѕе, and Fileit 2* from 
Swifty.» 


There are some problems, however, Since you must first 
boot up the special DOS, any disk that is self-booting and/or 
protected like VisiCalc, MicroSoft BASIC, etc. can not use the 
new features, Pascal, a perfect use for it since it requires 
2-drives and could use the speed, does not work with it 
because of memory conficts. I originally bought it to use with 
our Bulletin Board system, but had some problems. Axlon has 
been super in trying to help, but there is an apparent conflict 
between the Ramdisk and our Bulletin Board program under 
certain condtions. The other problem is the old hair-dryer 
fuse blowing-anything in memory is lost. Axlon volunteered to 
refund our money, but we decided it would be perfect for Chuck 
and Jody Ross and the exchange library to greatly speed up the 
copying of the many disks they send out. бо, at least until we 
make enough money to buy a double-density drive, we are back 
ға one drive оп the bulletin board and not as many programs 
for you to down-load. 


-Mike Dunn 
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PMDEMO Upgrade (АСЕРМ) by Jerry White 


After seeing the PMDEMO program on the A.C.E., Utilities 
Disk #1, I thought of a few ways to improve the program. The 
old version does a nice job of demonstrating Player/Missile 
Graphics. But why not clear the screen, demonstrate sound, 
click the speaker on change of direction, and show how to 
change the color of a player too? 


The obvious reason is to add BASIC commands which slow 
down the player's movement right? WRONG! In this version, 
the player moves slightly faster than in the old version. I 
must have added assembler subroutines right? WRONG! Both 
versions are 100% ATARI BASIC, 


I won't go into a long winded explanation of using P/M 
Graphics. That's been done many times before, I'll just 
briefly describe the changes I made to the original program. 


I used GRAPHICS mode 19 to increase the speed of ATARI 
BASIC, Since there is less display work to be done, BASIC сап 
handle the extra work I've demanded without slowing the 
player movement, 


I expanded the horizontal and vertical range of the player 
so that it seems to change direction only when it collides with 
an edge of the screen. When this happens, I POKE 53279,0 to 
click the console speaker, 


The movement routine was relocated nearer to the 
beginning of the program which also provides a slight increase 
in speed, This loop always returns to line 10 where I've added 
two more POKEs, The POKE 704,2 changes the player's color 
using its horizontal position as input. The POKE 53750,Y 
provides the sound using the player's vertical position as 
input, 


Note in line 3000, there is a POKE to location 53761, This 
combination of POKEs to location 53750 and 53751 replace 
BASIC's SOUND command. So why didn't I just use a sound 
command? Once again, for speed, 


Location 53750 provides the pitch or frequency for voice 
zero while location 53741 provides the distortion and volume, 
The value 13071564842, or distortion level 8 with a volume of 2, 
As the player reaches the top of the screen, Y=20. The sound 
you hear at that point is the same as the sound generated by 
the BASIC command SOUND 0,20,8,2. 


To END this program, press the SYSTEM RESET key. 


і DIM A#$(512),BS(20)X=0:GOTO 
110 

10 AS(Y,Y*11)2B$:POKE 53248,2: 
Y=Y¥+V3Z=Z+HiPOKE 704,Z:POKE 53 
760,Y3IF Y2220 OR Ү<20 THEN у= 
-ViPOKE 53279,0 

20 IF 22205 OR 7<40 THEN H--H: 
POKE 53279,0 

30 GOTO 10 

100 REM PLAYER MISSILE EXAMPL 
E, FROM EUGENE ACE PR 
OGRAM EXCHANGE 

105 REM UPGRADED PMDEMO (П:АСЕ 
PM) 5/25/82 BY JERRY WHITE 
110 GRAPHICS 19:TRAP 2000 

120 X-X*1:1READ AIB$UC,X)-CHRS( 
ANGOTO 120 

130 DATA 0,24,24,24,24,24,60,6 
0,219,219,153,0 

2000 POKE 559,652!1I- PEEK(104)- 1 
ЫРОКЕ 54279,ПРОКЕ 53277,2 
2040 УТАВ-РЕЕК(134)-РЕЕК(135)% 
254 

2050 ATAB=PEEK(140)+PEEK(141)+ 
256 

2060 OFFS=1#254+1024-ATAB 
2070 HI=INT(OFFS/256);LO=OFFS5- 
НІ%256 

2090 POKE VTAB*Z,LO:POKE VTAB+ 
32,HI 

3000 Yz60:2-100:Vz1!:H-21:5OUND 
0,0,0,0:РОКЕ 53751,130:GOTO 10 


Atari Computer Enthusiasts 


Атақ! 
Ж Computer 


А.С.Е, is an independent computer club and user's group with no 


9 ENTHUSIASTS 2 3 
3662 Vine Maple Dr Eugene OR 97405 


We are а group interested in education our мемђегс in the use 


of the Atari Computer and in giving the latest News, Reviews and Rumors, 


connection to the Atari Company, а division of Warner Communication 


Company. 
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members. 





бит membership is world-wide in scope} membership fees include the 


ALE, Newsletter, Dues are $10 a year for U.S., and $20 a year Overseas 


Airmail, 


FIRST 
CLASS 


President-Kirt Stockwell, 1810 Harris #139, Eugene, Or 97403 503-485-2470 





Secretary-Charles Andrews, POB 1413, Eugene, Or 974401613 503-747-9892 


Librarian-Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401 


303-343-5545 


MAIL. 


Editors -Mike Dunn, 3642 Vine Maple Dr., Eugene, Or 97405 503-344-4193 
-Jin Buwpas, 1405 М, 26th Ave, Eugene, Or 97401 503-484-9925 
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